le 1 er hebdomadaire des nroorammes informatiaues 



DES PROGRAMMES POUR VOTRE 

ORDIN ATEUR : apple ii et ll e . CANON X-07. CASIO fx 

702-P. COMMODORE 64 ET VIC 20. GOUPIL. HEWLETT PACKARD 
HP 41. MULT1TECH MP-F II. ORIC 1. SHARP PC 1500, MZ 80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS T1-99/4A. 
THOMSON TO7. 

DEUX SUPER CONCOURS : 10000 de 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 

Menu Edito SANS LES MAINS ! 






Gardez-vous a droite ! MINI PAC 
est attaque par les fantomes du 
VIC 20parD. CAPDEVIELLE. Gar- 
dez-vous a gauche ! Le GLOUTO 
de Pascal et Eric HOSTACHY est 
aussi attaque par des fantomes. 
mais par ceux du MPFII Gardez- 
vous dessus ! Les SPACES 
MONSTERS de J. THIRIAT sont la 
(COM. 64) STARTREK eclate au- 
dessus de vos tetes, Pierre 
GASQUY sur ORIC Neutron lar 
gue ses bombes et ses missiles. 
Alain RENDERS et SPECTRUM 

aTaTaaaaaaaaaahh, KJNG- 

KONG est la, en haul du building, 
votre ZX81 sauvera-t-il la ville ? 
(Bernard GOURC). Gardez-vous 
dessous.le champ est mine, MINE 
ZONE de Salvatore FORINO sur 
APPLE, mais un TRESOR y est 
peut-etre cache (FX 702 P de 
Gerard FERRANDEZ). Ca glisse 
pour TEXAS, la piste de SLALOM 
est couverte d'huile (Christophe 
CHANTRAINE) et la neige est ver- 

HIPPOREBUS trouvez lexpression qui se cache dans la B D del 
isolution en page inteneure) 



glacee dans MORTELLE RAN- 
DONNEE de Gilles GRAPINET 
Quelle aventure ! Un peu de 
repos ? 

Allongez-vous quelques instants, 
le reveil SHARP de M SCELLIER 
vous reveillera pour une partie de 
SOLITAIRE sur T07 par Chantal 
DALLE ou peut-etre aimeriez- 
vous aller au CASINO avec quel- 
ques amis et Maxime TANGUY 
(CANON X07). 

A moins que vous ne preferiez un 
carre magique sur TRS 80 (Olivier 
NEROT) ou une partie de SAUTE- 
MOUTON dans le jardin avec 
PC 1500 et Antoine MAHIEU ou 
encore, plus serieusement, vous 
mesurer aux connaissances or- 
thographiques de votre GOUPIL 
(Jean-Felix CORDOLEANI). 



Possesseurs de HP-41, rejouissez-vous. Hebdogiciel inaugure : le premier programme diffuse en 
code barre est la ! Laissez tomber votre clavier demode et promenez voire crayon oplique toul le I 
long du journal. Agreable. non ? Surtout pendant les fetes ! 

Que ceux qui n'ont pas de crayon optique se rassurent. le listing "normal" est en page interieure. 
Quant aux autres. les pauvres proprietaires de micro avec un bete clavier, qu'ils envoient une peti- 
tion aux fabricants de leurs engins (Poil aux mains !) 



1983 est mort ! Vive 1984, vive 
7C et vive 11111 00000. Que 
cette nouvelle annee soit profita- 
ble a tous les programmeurs de 
France et de Navarre et aussi a 
ceux de Suisse, de Belgique, du 
Luxembourg et du Canada ! Oh, 
et puis tiens, nesoyons pas chau- 
vin. qu'elle soit aussi profitable 
aux autres, a ceux qui ne parient 
pas et ne programment pas en 
Francais ! Nous terminons I'an- 
n6e avec le numero 12 (n'ayez 
crainte, c'est une coincidence, 
nous sommestoujours hebdoma- 
daire) et malgre la jeunesse de 
notre journal, on peutdejafaireun 
bilan qui s'avere nettement posi- 
tif : vous nous envoyez des pro- 
grammes de qualite qui peuvent 
largement rivaliser avec les logi- 
ciels commercialises, vous etes 
chaquesemaineplusnombreuxa 
adherer a la formuledel'Hebdoet 
a I'acheter et ce, malgre le peu de 
Suite page 10 
hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec l'informatique 



LA MOftT L'A EMPRUNT^E AU • 
TEMPS. ... 



il a pr£c£d£ la caosse dans la 

MAIM DES £vEOUES... 



IL &ST TOUlOURS MODEftNE, 
AVANT De LE DE-VENfR ... 




ET MOMTOUT, A BESOlN D'uw ^cPdN 
CATHODiQOe... 



(N°12 



30 Decembre 83 J Allemagne 3,50 DM - Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs • 



I SPACE MON STERS COMMO dore 64 




Vous etes charge de la navette entre la base geante en or- 
bite et le sol de cette planete peu accueillante. Evitez les 
monstres qui veulent vous empecherdefairevotreboulot 
de liftier de I'espace ! 

J. THIRIAT 



But d it jeu : effecluer le plus de voyages possibles entre la base et ie sol 
en evitant les monstres. Deplacement de la navette avec-^' et> et la ba- 
se d'espace qui a deux fonctions : une pression rapide inverse le sens 
montee/descente et une pression proiongee stabilise I'altitude. 



F€.l]* ******* ******************* 
REN* SPflCE MONSTERS * 

REM* CQMHODORfc 64 * 

KtH* J. THTF.IRT * 

REM*************************** 

rriht rr 
PRiKT-MBoaaMMr 

PRINTIrffi(12J"Sl^tL£ NONSrERS*' 

f<.*V- i : '.. WOO N£. 7 

PRINT "IT FO*E53281,0 fOKESii'SU.ts 

v'=5324tj FOKEV+30.0 2>2 

Hc=.-*5 H1=10U Ht^l^W H,=35 H4=la5 

HB-2M P8=133 

Pl=156 P2=193 P3=95 P4=173 F5=250 

Fe=.H'i F 7=250 

VI-64 fK>203 SF=68 LR=47 Rl=44 

FORI=lTu58 

fc=Ii+l 

1FD=16THEND=1 

2>1024+IHT<KND<l)*8ee) 

P0h.EZ.46 P0KEZ+54272.B NEXT! 

PEM BRUITS 

h>.E542/;Mx.o <-uK.t54«:7s. 128 FUKE54276.17 FUKE54272.0 

rUI E54„>:4.1,::,- ryi t' J 4J:ib - 123 FUl E542tj J - PO> E54*;, .- l-».- 

FUKE54 t Hl. 121-- H>t^.^,liH PUKb^^U.y Pur-.E54239.10 

C -U> E542Si: !!■;■■ Fyl 1 54236, 234 

print -a ___^ 

PRINT" -:■ -. 

PRINT" — .:h - - - - ^ 
PRINT" — a • • • • ■ • S~ 
PRINT" "a » * M M 5" 
PRIHT" ~a l - 

PRINT" 

PRINT"*' PRIHTCHR*(39) PRINT"«W PRINTTRBC8) "•" i PRINTTRB': 31 ■ 
F0RI = 1TC'16 PRINTTFlB'.8j"l ", PRINTTRBOl >" I" -NEXT 
PRINT"* 1 F0R1=1TG19 PRINT NEXTI 
PRIMI"5lal lbs 

print" a . . ^ sr 

PRINT'S . .... . " 

PRINT"* . . . . ■" 

F0RI-1964T02823 P0KEI.166 POkEl+54272,7 NEXT I 

PRINT"* 1 

PuKElS64.1.-(ci M>,E 1984 + 54272. 7 P0KE1985, 148 POKE 1985+54272. 7 

PRIN1 PRINTTRB'. 15--" ^▼▼▼▼'S" FRINT"*' 

REM 

drtm e.M.u.a.tjo.o.o.^55.o 

LMTH 3.255. 192. 15.255,248. 15. 68. 240 

IiRTR 38,24. 128.30,24. 128.63.68.252 

BRTR f. i . 60 . =:52 . Si . 255 .iJo.il 255 . 204 
BHTR 115.231,206.115,231.206.97,231.134 
DflTft 97,231.134.224,195,7,192,195,3 
DRTR 128, 129, 1 , 123, 129, 1 , 128, 129, 1 
REM 

drtr 0,0,0,0,0.8,0,8.6 

DRTR 0,0,0,0,0,0.8,0,0 
I'RTh 8.0,0,0,0,0,0,0,0 

DRTR 0,60.0,1.255,128,15,255,248 

BRTR 255,102.255,3.255. 132,6 60.0 

DRTR 0,0,0,0.0,8,8,8,0 

BRTR 0,8,8,8,8,8.0,0,0 

REM 

BRTR 0,8,8,8,8,8.0,8,8 

DRTR 248,8.31,16,8,8,8.0,16 

DRTR 4.0.32,2.24,64,1,60,128 



498 

see 

510 
520 
538 
548 
556 
5*8 
378 



610 
620 
638 
648 
658 
668 
670 



*T R0KEV+l«,P5-l I 



748 BRTR 0,219,0,8.231.0. 1.60. 12io 

rTSfl DRTR 2,24,64,4.8. 32. S.w, lt> 

768 DfiTfl ic,0.S.z4S, 0,31. 0.8.0 

770 DRTR 8. 8. 0,8. 8.8, 8. 0-6 

'SB PQKEV+48.S POKEV+43,6 FOKEV+44,2 

736 POIE2040.14 Put-.E2U41.li PGktv+46,7 

oUO PUKL2U4*;. 1J P0tE2O43.l3 FOKEV+45.7 

BIS POKG2044, 13 PuKfc2845,13 

32y P0tE284fc.l5 P0h£2847,15 

£38 FOFI=OTy^ KtHl.ii,' Pul t*-.*. + 1 ■ U NfcM 

348 Fuftl=0rur.i REBDG F0KE396+I.Q NEXT 

356 F0RI=6T062 KtHLu PUh E968+ 1 , Q NEXT 

360 POKEV+21.17 

£70 POtEV.PO POKEV+1.M0 

686 P0K6V+2.PI P0KEV+3.H1 

890 F0KEV+4.P2 P0KEV+5.H1 

306 P0KEV+6.P3 P0KEV+?,H2 

310 PUJEV+3.P4 F0fcEV+3,H4 

320 F01EV+18.P5 P0KEV+11.H2 

3 38 P0KEV+I2.P6 P0t.EV+13,H6 

948 F0KEV+14.P7 P0KEV+15.H7 

9Sfl PEM BRUITS 

360 F0KE54296.15 

970 Fui.EV+23.6 2=-i D=y FOHEV+38,8 

988 FQRbR=liu48 PutE54273.12 FOR1=IT058STEP2 P0KE5428O 

IMS Fi^f'.i.Fi-I F0kEV*4,F2*I P0KEV+6-P3- 

1818 Fut,EV*I3.H6-I PCiKEV*15.H7-I 

IB2B IFPEQ ml'=VIIHEH1666 

1838 IFPEEK'RC'^LRTHENIi^B-i OuTulOow 

1640 IFP£EK'Hi_,'=RliRtNIi=D*2 iXiT01866 

1056 IFT*EEK«flC )>8PTHEN2— Z G0T01868 

I860 H8=H6+2 PCi».E54288,254 

1078 IFH8-;5OTHElJHtt=S0 UU3UB1400 

1US6 IFH8.iioOlMfcHHU=t;jO oU-3UB14 3y 

It'-Hij py=F0+Tj 

11.38 lFPO-:iilHtNPy=. : ^ i'--^ L.ulOlliO 

1118 IFP0;-2'>jlHb.tH.u = i , i0 D=-2 

1120 POKEV.P0 PUCEV*I,H0 

1130 IFPttl-'.v_-io ■. ylHEiUjUiUBl >.y 

1140 NEXT I 

1158 FOKEV+23,16 FOKEV+S, 161 POKEV+23-48 

1160 R0KE54273,3 FyRI=50TLllSTEF'£: FUKE&4268, 12 

1178 P0KEV+2,P1-I P0KEV+4.P2+I P0KEV*6*P3+I PUKEV+10,P5-I P0KEV+9.H 

1130 F0K.E54287, 1 00+ 1 

1198 POKE V+13.H6-1 F8hEv+15.H7-l 

1280 IFFEE^.^Rl:J=VITH£N1240 

1210 IFPEEl,'.RC.'=LRTHEND=D-2 60 TO 1248 

1220 IFPEEK<RCJ=RITHEND=D+2 60T01248 

1230 IFFEEK'.RL-'=SPTMEH2=-Z 

1240 H0=H0+t PUKE54288.35 

1250 IFH0':50THENH8=50 I3O3UB1408 

1260 IFHe.236THENRU=i30 GOSUB1430 

1270 P0=P8+D 

1280 [FP9C85THEHP8=65 B=2 60T01128 

lt30 IFP8..250THtltf-.J = [ -. , :.y l^~L 

1308 P0KEV.P8 POKEV+1.H0 

1310 IFPEEK'V+i0',0IH£N6U'3UB136M 

1326 NEXT I 

1 330 POKEV+23 , POKEV+tf . 1 73 

1340 POKEV+23. 6-HEXTCfl 

1358 G0T01558 

1366 P8=133 H0=200 D=8 Z=2 

1370 POKEV.P0 P0KEV+1,H8 

libO P0KE53281.18 F0RiJ=lTu5« NE/.IQ POKE33281.0 SC='3L-'. 100*R.> 

1390 RETURN 

1400 IFPEEKO.'+23.'=254TH£UPETURN 

1410 P0KEV+28.254 3C=SC+(280*Rj 

1428 RETURN 

14JB 1FPEEKaV+£^SJ=0THE;HREIURN 

1440 POKEV+28.0 

1458 R=R+t SC=SC + '. 1O00«R> 

1460 IFR>9THENR=9 

1470 0NF:60T014S8. 1436, 1508, lily, 154W, 1540, 1540, 1548. 1546, 1540 

1480 POKEV+21-209 POK-E542 1 30. 17 60T01548 

1498 POKEV+21.217 G0T01548 

1508 POKEV+21,249 00T01548 

1510 P0k£V+21,ti5 PUKE54 £ ;83.33 OOT01548 

1520 POKEV+21,255 G0T01548 

1530 POKEV+2 1.255 

1540 RETURN 

1550 PRINT 1 *' PRIHT-WWcWKlKWN'- 

1566 P0l,E5429o.y 

1570 PRINT THBa5>"CiflME OVER" 

1586 PRIKTW 

1590 PRIHTTAB<I3> "SCORE ",3C 

1600 ijOTC'1608 



MINI-PAC 



Un glouton qui se deplace dans un labyrinthe et qui devo- 
re les points qui se trouvent sur son passage, cela ne vous 
rappelle rjen ? Et si, en plus, il doit eviter le contact avec les 
fantomes qui le poursuivent, c'est pas un pac-man, ca ? 



Didier CAPDEVIELLE 



5 PEM CRFDEVIELLE 

10 REM MINI-PRC*CRPDEVIELLE 

15 P0hE36879.24 

28 P0KE646,8PPINT 1 'n«lil«HiniNI-PRC««W«W«il" P0KE646.k 



Avant chaque chargement du jeu, ou avant de recopier le listing, faire 
POKE 8192,0 : POKE 44,32 

Vous disposez de trois vies et d'une vie supplemental pou 
10.000 points. Ctiaque labyrinthe doit etre vide de tous les poi 
remplissent avant de passer au labyrinthe suivant, plus difficile 
rapide (6 labyrinthes differents). 




PRINT"IMMMrflPEZ UNE TOUCHE 



30 GETHt IFRJ=' 11 'THEN30 

35 PRIHT"WW»r , EUILLEZ PRTIENTEP" 

98 ooToseee 

186 POKE36369.207 P0KE36S79.S P=l T6=l SC=8 NB=3 

162 IFTgalTHENOOSuB 10800 

103 IFT6=2THENGOSUB13O00 

184 IFT6=3THENG0SiJB14688 

105 IFT6=4THEt*:.ij-3Mpl 1088 

106 IF76=5THEN'iD3iJFU080 

107 IFT6>5THENG08UB15888 

116 P=4261 P0KEP.28 M1=4}:4S 112=4350 P0KEM113 P0KEM21:-: PC* E36378. 1 FORRR=lTO10i 

8 NEXT 

126 PRINT"*'SC PRINTNE 3=0 31=0 IFBP=1THENP0KE36877. 175 

122 IFF=M1+22THEHM1=P 00T0596 

123 IFF=M1-22THENM1=P GOT0598 

124 IFP=H1+1THENM1=P O0T0598 

125 IFF=M1-1THENM1=P BOT0996 

130 IFMI>P+I2RNDFEE1 ' Ml-22 *=8THENV=1 GOTO800 

135 IFMl>P+!2RNDPEEK/Ml-22-=:i2THENV=2 GOTO808 

140 IFMl"P-12RHDPEEKtMi+ii.=bTHEHV=l GOTO850 

145 IFMKF-12flNBPEEK'Ml+22.' = ?iTHEHV-i 80T0858 

150 IFMl>PRNIiPEEK<Ml-l i=8THENV=l OOTO900 

155 IFM1>PRNBPEEK<M1-1 >=32THENV=i OuTli900 

160 IFMKFRNDPEEK'Ml + l i=8THENV=l onrr^Si'-. 

165 IFM1<PRNDPEEK'M1+1'=32THENV=2 GOTO950 

180 IFPEEK'M1-22'=8THENY=1 Ml=Ml-22 P0KEM1 . 1 i P0KEM1 +22,8 GOT0258 

138 IFPEEh ■Ml-:2- = ?,?THEMv = ;- mi=M3-22 F-ul-EMl \ ■:■ P'> F«: +.: , -■ ■<■■-■:-■.■ 

195 IFPEEP'Mi + i >=RTHEtJV=l f1i=Mi + i P0FEM1.13 P0KEM1-1 .8 C.r'Tn258 

288 IFPEEF 'Ml + 1 ■ = 32THENV=2 M1=M1 + 1 P0I'EM113 P0REM1-1.V .\ni>-Q*.* 

265 IFPEEK'M1+22<=8THENV=1 Mi=Ml+22 POKEHl'13 P0KEH1-22-S r-0TO25« 

218 IFPEEKM11+22'=32THEHV=2 Ml-Ml+22 P0KEM1 . 1 i PnKEMl-22. 32 60T0258 

215 IFPEEKM1-1 -=8THEMV=i M1=M1-1 P0KEM1 , I3"P0ffiMl+1.8'G0TO25fl 

22<b IFPEEK<N1-1)»32THENV»2 Ptl-Ml-f P0KEM1 , 13 POkEMl+1 . 12- G0TQ258 



COMMODORE 
V\C 20 



252 IFP=M2+1TH£NM2=P Q0T0S98 

253 IFP=M2-1THENM2=P GOT0598 

254 PQKEP-22 IFBR=1THENPQKE3687?.210 

255 IFBR-2THENPOKE36877,0 
253 [PI'L-:-"P'-llMMIiPEEK',M2+22' = 8THEHVl = l 08101808 
259 IFM2<:P-12RNDPEES'M2+22'=32THENV1=2 80T0|h08 
266 IFM2>P+12RNIiPEE^'M2-22)=&THEtVVl = l eOTOteSS 
265 IFM2>P+12RNDPEEK<-M2-22' = 32THENY1=2 GOTO1O50 
270 IFM2<PRNDPEEK<M2+I "8THEMV1=1 OOTO1150 

275 IFM2-;PRNDPEEk'.M2+l)=32THENVl=2iOOTO1150 
28<d IFM2>PRNDPEEK''M2-1>=8THENVI = 1 6OTO1100 
235 lFM2::PMNDPEEKai2-l -=32THENY1 =2 O0T01 108 

292 IFPEEk.H2+22>=bTHENYl=l M2=M2+22 P0KEM2.13 P0KEM2-22,S G0T0338 
295 IFPEEK(M2+22i=32THENYI=2 M2=rv+,Zi pnKEM.V.U P0fEn2-2 2- ?2 ry-.irrnvy 
300 IFPEEK<M2-1 >=8THENV1=1 M2=M2-1 P0tEM2, 13 P0KEM2+1.S 00TO338 
318 IFPEEK<H2-1^=32THENY1=2 M2=M2-1 : P0KEM2. 13 P0KEM2+1 . 32 GOTO330 
;;'■■ IFPEEK<M2+1^=8THENY1 = 1 M2=M2+1 P0KEM2. 13 POKEMi-1 8 GOTO?1-:0 
328 IFPEEK'.M2+1 J=32THENY1=2 M2-M2+1 P0KEM2 . 1 3 P0KEH2-1 . 32 OnT0338 
323 IFPEEK'.M2-22>=8THENY1 = 1 ■ M2=M2-22 FTif EM2 ■ 13 P0KEM2+22.8 G0T0338 
326 IFPEEk<Mi-22>=32THENYl=2 H2=M2-22 POKFM;.!:: P8KEH2+22,32 
330 PEM 
398 DC=BR 
408 DR=PEEK<19/> 
402 IFDR=64THEHBP=K 
405 IFPP=9THEN.l = -2i 0=20 COSUB780 
410 IFDR=33THEN,1=22 0=21 00SMF71W 
415 IFDR=17THENJ=-1 0=19 OOSUBTee 
426 IFDR=18THENJ=1 0=19 GO5UB700 
580 IFSC=>1000FlNDiL 10O5rHE!<NP=NB*l 9C-SC + 18 
585 IFNB=8THEIC-OTO28660 

*/_^ lFru=P':iP[^ = c-HEti80>Mt2y00 HB=MF-1 88T0102 
595 IFPI=>3npPI-:0THENT6=T6+l GOTO 102 
688 G0TO128 

700 IFPEEl .F+T.=*THFMP1=P1-1 P=P+J -=.r=<.t>2 POKEP G P0KEP-J.32 BR=1 
793 1FPEER'P+t.=-j20RPEEK'P*J> = 13THENP=P+J POKEP-G P0KEP-J.32 BR=2 
718 RETURN 

308 Ml=Ml-22 Put EMI. 13 IFY=1 THENPOk EMI -22 ■ 9 Q0TO25e 
318 IFV=2THENFi;*EMl+22.32 60T0256 

350 ni*f11+22 P0KEM1.13 IFV-lTHEW»0KENl-22.e GOTO250 
8M IFV=7rHENFOKEMl-22-32 0070256 



Suite page 4 



LE CARRE MAGIQUE 




Casse tete anime ou il est question de betes a cornes, de 
juge indecis, et de trtcherie grace a I'ordinateur. Nous ne 
vous donnons pas les regies du jeu, ce serait trop facile. 
Sachez tout de meme qu'en appuyant plusieurs fois sur 
une certaine touche, I'ordinateur affichera la solution qui 
lui semblera la meilleure. A vos cachets d'aspirine ! 



Olivier NEROT 



PRESENTATION DU TITHE 
40 CLEAR1200iRANDOn!DIKP*C5B).C(300)tCLS!PRINT3460. "UN PEU DE PATIENCE, JE TRAVA 
ILLE ... HOI ! ! ! "1G0SUB79B 1CLSIT*-"LE CARRE MAGIQUE" 

70 POKE 18398. 175i GOSUB4720 I PRINT3405. STRING* (20. 176) 13533. STRING* (20. 131) : 
100 PRINTa469.CHR*(191>l348S. CHR*<191>!3598. "PAR OLIVIER NEROT" 
130 F0RI-1T016:PRINT3471. STRING* C 1&-1 . 32) t LEFT* (T*. I) I 
1B0 FORJ-1TO20:NEKTJ, 1 1FORI-1 TO200I NEXT I 
190 PRINT3960. ! :FORI-1TD101PRINT:FORJ«1TO30:NEXTJ. I 
220 ' 

AFFICHGGE DU TABLEAU 
250 PRINTa0.B*l30, 0*1 362. A*l 3960. B*t:ODSUB5B80 
280 H-278:PRINT3H,STRING*<28, 176) t : H-H+64 1 FDRI=1T02: 1 
ICHR*<191H" "TCHR*(191) t" "1CHR*(191>! 

310 C*-CHR»(191)+5TRING*<B. 183) 
340 PRINT3H, C*IC*tC*tCHH*<191) I I H-H+64 
370 F0RI-1TD21PRINT3H,CHR»U9I) 1" "lCHR»C19D i " 

"ICHRK191) I iH-H+E4:NEXT 
400 C*-CHR«f 191)*STRING*<B. 183) 
430 PRINT3H.C*lC*lC*lCHR*<191)l I H-H+64 
460 F0RI-1T02IPRINT3H, CHR*t 191)1" " 1CHR*( 191 ) I " 

"|CHR»(191) 11 H-H+64: NEXT 
490 C*-CHR»(191)+STRING*<8. 1B3) 
S20 PRINT3H,C*tC*tC*lCHR*(191>tiH-0 
380 F0flI-lT01BSTeP3iPRINT3I+3&B.N*<I/3)liNEXT 
E1B F0RI-12TQ19BTEP3iPRINTBI+4B8.N»(I/3)HNEXT 
640 FORI -21 T028STEP31 PRINTS! +607. N*( I /3>! INEXT 
650 PR INT3758, STRING* <4. 140) 1 3738. CHR*( 156) I 3761 , CHR«< 172) I 
660 FORI-1T021PRINT3(E4*I ) + 758, CHR»( 149)1 
665 PRINT3(64*I)+761.CHR*C170)t INEXT 

670 PRINT394E, STRING* ( 12. 15G) I 3950. STRING*I4. 159) ; 
660 PRINTaB97,STRING*(49. 171) I 
700 F0RI-lTO9:B(I>-<(RND<2)-l)+7)+l:READP(I) :NEXT>GOTO2530 



lCHR*(191)t 



-ms 



+F*+P*U) 



760 • 

ENTREE DES GRAPHIOUES 
790 P*<1)-" "+CHR*(183)+CHR*(143)+CHR*(IB7 
B20 P*<2)-" "+CHR*(189)+CHR*<179)+CHR*(190 
B50 P*<3)»" "•CHR*<19I>*CHR*<153)+CHR*C167 
B80 P*<4)-" "+CHR»<135)+CHR*(1&7)+CHR»C191 
910 P*<5)-" "*CHR*<182)+CHR*( 1B5) +CHR*( 191 
940 P*(6)-" "+CHR*<191)+CHR*(182)+CHR*(185 
970 F*-CHR*(26)+STRING*(5.24) 

'+CHR*(I6B)+" "+CHR*(148 
(16)-LEFT*tP»lB). 11)+P*(2) 

"+CHR*C148)+CHR*(168)+" "+F»+P*(3) 
l +CHR#{14B)+CHR*C168)+" -+F»+P*<4) 
K40)-LEFT»<P*<32), U) + P»<3> 
-LEFT*(P*t24). 11)+P*(B) 
11BB FORI-lTOGiP*(I)-" "+F*+P*( I)1NEXT 

1210 F0RI-1TD1SIA*-A*+CHR*<191)+CHR*(26>+CHR»(24) INEXT 
1240 FORI -lTD63iB*-B**CHR*( 191) iNEXT 
1270 Ft-CHRt(26)+STRIND«(E. 24) 

1300 A»U)"CHR»<160>+CHR*<176)+" "♦CHR*{ 17&)+CHR*< 144) +F* 
1330 A*(1)-A*(1>+CHR*(13B)+CHR»C171)+" M +CHR*t 151 )*CHB*< 129) +F* 
1360 A*(l)-A*(l)+* "+CHR*<186)+STRING*(2. 176) +CHR*UB1 ) + " " 
1370 fl*C2>-" "+CHR»<16B)+CHR*C176>+" "+CHR*( 176) +CHR*( 144>+F* 
IS73 aiiJ^flii 21." ■'.WBi. 17511 »CNR* . :Ti )•■ "+CHR4C1S1) 
1380 A*(2>-A*<2)+CHR»(129>+F*+RIGHT*<B*<1>.6) 
1383 A*C3>-CHR*{lGB)+CHR•(176)+ , ' "»CHR*( 176) +CHR*( 144)+" "+F*+CHR* 

1386 A*C3)-A»{3)+CHR*(171)+" "+CHfl*U31 )+CHR*( 149) + " "+F* 

1387 H*C3)«ft*<3)+RIGHT*<A»(l),6) 

1388 A*(4)-CHR»C176)+CHR*<144)+" "+CHR*( 160>+CHR»< 176) +F* 

1389 fl*C4)-A*C4)+CHR»(13l)+CHR*(149)+" "+CHR*( 170)+CHR*l 131 ) 

1390 fl»(4)-A*<4)+F«+RIGHT*(A*U).6) 

1419 F«-CHR*(26)+STRING*(B.24) 

1420 T*(1)-CHR*<168)+STRING»(2, 191)+CHR*< 155)+CHR*( 167) 
1450 T*I1)-T*(1)+STRING*<2, 191 ) +CHR*U48) +F* 

1480 T*<1)-T*(1)+CHH*(130)+CHR*(143)+CHR*(191)+CHR*(178) 

1310 T*<l>-T»(l)+CHR*U77)+CHR»C191)+CHR*U43)+CHR*<129) 

1540 T*(2)-CHR»(168)+STRING*C3, 191 ) +CHR*U55) +CHR*< 167) 

1 570 T* C2) =T* 1 2) +CHH* C 1 91 ) +CHR* ( 1 4B ) +F* 

1600 T*C2)»T»{2)+CHH*(130)+CHR*(143>+5TRING*(2. 191 )+CHR*U7B) 

1630 T*<2)-T*12)+CHR*C177)+CHR*(143)+CHR*<129) 

1660 T*(3)»CHR»1168)+CHR*(191)+CHR»(155)+CHR*C167> 

1690 T*(3)-T*C3)+STRING*13. 191 >+CHR»< 148) +F* 

1720 T*(3)-T*(3)+CHR*(130)+CHR*<:i43>+CHR*(17B)+CHR*<177) 

1730 T*(3)-T*(3)+STRING*<2. 191 )+CHR*< 143) +CHR*( 129) 

1780 T»(4>-CHR*{1B8>+STRING*<2. 191 ) »CHR*i 166) +CHR*f 153) 

1790 T*(4>-T*(4)+STR1NG»(2. 191 ) +CHR*< 14B) +F» 

1800 T*(4)«T*(4)+CHR*C130>+CHR*U43>+CHR*<191 >+CHR*UB8> 

1810 T*<4>=T*(4)+CHR*(lBB)+CHR*<191)*CHR*<143)+CHR*t 129) 

1820 T*(5)»CHR*<168)+STRING*<3, 191)+CHR*i 166)+CHR*i 153) 

1B30 T»(5)-T*(3)+CHR*<191)+CHR*(148)+F* 

1840 T*(5)-T*(5)+CHR*(130)+CHR*<l43)+STRING*i2. 191 ) +CHR* ( IBB) 

1830 T*t5)=T*<5)+CHR*U88)+CHR*<143)+CHR*(129) 

1960 T*(6)»CHR*(16B)+CHR*(191)+CHR*(166)+CHR*r 153) 

1B70 T*i6>=T*<E!+STRING*<3. 191 ) +CHR»< 148) +F* 

1880 T*(6)-T»(6>+CHR*<130)+CHR*< 143) +STRINGK 2, 1S8) 

1890 T*t6)-T»(6)+5TRING*(2. 191 ) +CHft*C 143) +CHR*l 129) 

1900 C*(l)=" "*CHR»(176)*CHR*<1B4)+CHR»<190)+CHR*(1B9) 

1910 C*r 1)=C*< 1)+CHR*< 180)+CHR*(176)+" "*F*+CHR*i 170) 

1920 C»il)-C*l.l)+CHR»(151)+CHR*(iB3)+STRING*<2. 14B) +CHR*t 191 ) 

1930 C*ll)-C*ll)+CHR*U71)+CHR*U49) + F*+CHR*1 1I8)+CHR*< 149) 

1940 C*l 1 ) =C*l 1 )+CHR*I 175)+STRING*<2. 179)+CHR*( 15B)+CHR*i 170) 

1950 C*(1>=C*(1)+CHR*<133>+F*+" "+CHR*< 130>+CHR*< 151 )+CHR*< 171 > 

1960 C*<l)-C»ll)*CHR*t 129)+" " 

1970 C*i2l«LEFT»rC»ll), 17>+" "+CHR*l 191 )+CHR*l IBS) +CHR*U88) 

1980 C*<2)=C*(2)+CHR*<I40)+CHR*<:i91)+CHR*<171)+CHR*U4g> 

1990 C*(2)=C*(2)+F*+" -+CHR*t 175) 'STRING* i 2. 179)+CHR*i 158) 

2000 C*<2)-C*i:2)+CHR*<170)+CHR*i 1 33)+F»+RIGHT*< C*i 1 ) . B) 

2010 C*<3)-LEFT»iC»U>, 17)*CHR*( 1 70) +CHR*( 131 )+CHR*dB3) 

2020 C*<3)=C*13)+CHR«(140>+CHR*< 1BB)+CHR*( 1B3)+CHR*< 190)+" "+F» 

2030 C*(3)=C*C3)+CHR*I I38>+CHR*(149)+CHR*<175)+STRING*12, 179) 

2040 C«<3>-C*i3)+CHR*(15B)+" , '+F»+RIGHT*(C*i H.B) 

2050 F*=CHR«<26)*STRING»(4.24j 

2060 J»<1)=" "+CHR*(149)+CHR*<170>+" "+F* 

2070 J*<l)=J*(l)+CHfl*117B)+CHR*U49)+CHR*ll70)+CHR*i 17E) 

20B0 RETURN 

2500 ' 

AFFICHOGE DES GRAPHIOUES 
2530 F0RI=lT09iPRINTaPi I ) , P*i RND<6) »B< I ) ) ! :NEXT 

2560 <=RNDl9) :Y=RNDi6) :X1=RND(9> : V 1 =RND(E> : IFX-X1DRV-Y1 THEN2560 
2590 ON RND(2) GOSUB 2740 .2800 

2620 IFPEEKt 1 4408) "4THENCLS1 POKE 16396. 201 : PRI NT3475. "LACHEUR .. . " i END 
2650 K*-INKEY*:IFK*-CHR»( 13) THENGOSUB4270 



80 



T0> 




2680 IFK*> "0"ANDK*<"3"THENRESTOREiK-VAL<K*> :PRINTa823. N*(K) I : GOSUB I 

1GOSUB34E0 

2710 PRINTaP(X>.P»(¥*B<X))iaP(Xl), P*(V1*B(X1> >t 

2720 PRINT3392. T«(RND<6)> 13201. A*tRND<4)> 13520. C*tHND<3) ) I377B. J*(i: 

2740 IF TIXM3 THEN P<X)-P<X) + 1 :T<X) -T(X) + 1 

2770 RETURN 

2800 IF T1X)>0 THEN P(X) -P<X ) -1 i T< X) -TCX)-1 

2830 RETURN 

2B68 DATA 343,352.361.533.544.533.727,736.745 

2890 ' 

CALCUL DES GRAPHIOUES A ALLUMER OU A ETEINDRE 
2920 FORI"lT09+<fK-l)i«3)iRE0D OiNEXT 

2930 PRINTa392,T*(RND<6)) 13520, C*CRND< 3) ) 13201 . 0* (RND(4) ) 1 
2950 FDR 1=1 TO 5:READ FiGOSUB 3310 =GOSUB 3370 iNEXTiRETURN 
2980 ' 

DATAS DES GRAPHIOUES A CHANGER 
3010 DATA 0. : 

.,2, 3 
'.5.6 



JGOTO2560 



3040 DATA 0.0. 

3070 DATA 0.2, 3 

3100 DATA 0.0. 1 

3130 DATA 2.4.5 

31B0 DATA 0.0.3. 

3190 DATA 0, 4.5 

3220 DATA 0,0.7 

3250 DATA 0, 5. B 



33 IB 
3340 
3370 



3490 

7J52H 
T-550 
3380 
3510 

r.e.7B 



TEST POUR SAVOIR SI C* EST UN GRAPHIGUE OU ' 
IF B(F)«I THEN 8<F)-8iRETURN 
B(F)-liRETURN 



TEST POUR VOIR SI LA PARTIE EST TERMINEE 
RESTORE I FORI *1 T054: READDiNEXT 
FORI-1 TO SiREAD W: IF B1DOW THEN I=9:NEXT URETURI 



GD5UB55E0 1G0SUB 3760 
PR1NT3220. "UNE AUTRE PARTIE ?"l 
K»-INKEY»HFK*-"O"THEN4510 1GDTO2530 
POKEI6396.20HPRINT392, ""1 "END 




ELSEIFKK) "N"THEN3610 



3760 
3790 
3820 
3830 

:=:s0 

ma 

7 340 

5970 

4030 



h z T-e 
4360 
RNDi 
4390 

45113 
4340 
4370 

:.C00 



AFFICHOGE SI LR PARTIE EST TERMINEE 
ON RND(7)G0SUB 3790 ,3820 . 3B50 .3880 ,3910 .3940 .3970 IGOTO4000 
•IL Y ftVAIT PLUS FACILE COMME SOLUTION" iRETURN 
'COMMENT AVEZ VOUS FAIT ■'"'iRETURN 

■VOUS N'AVIEZ POURTANT PAS L'AIR SI INTELLIGENT" i RETURN 
■LE HOSARD FAIT BIEN LES CHOSES. ■ i RETURN 
'LE DEBUT ETAIT VRAIMENT TRES FACILE "' i RETURN 
'VOUS N'AVEZ AUCUN MERITE. C ETAIT ENFONTIN" SRETURN 
'C'ETAIT ELEMENTAIRE. MON CHER WATSON !": RETURN 
'MAIS '■■OK RND<4)QOSUB40S0 .4060 .4090 .4120 'GOTO 4150 
'VOUS AVEZ GAGNE. "+M*+T*t RETURN 
C'EST ASSEZ BIEN REUSSI . "+M*+T* i RETURN 
VOUS V ETES ARRIVE(E). "+M*+T*s RETURN 
'GAGNE I!! "+M*+T«i RETURN 
I " 

DEFILEMENT DE T* 
I E*=STRING*(28, 32>IT*-E*+T*+E» 
I F0RI-1TDLEN<T«) : PRINT3214. MID»(T», 1.28) 1 
I FQRJ-1TD501NEXTJ. I = RETURN 
I " 

L'ORDINATEUR CALCULE LES COUPS A JOUEH 
FORI-lTO9HFBCI)-lTHENI-9:NEXTiGOTO4330 :ELSE NEXT1G0T0 4450 
FORI-lT09iIFB<I)-lTHENCP-CP+HCtCP)-l:NEXTi ELSE NEXT 

FORO-lT0CPiPRINT3B23.N*fC(O))l 1K-C(0) > RESTORE i PRINT3392. T*( RND<6) >1332B. C*< 
!) ) 13201, A*<RND(4))i:G0SUB292B >NEXTiGG5UB346B 

PRINT3823. CHR»<26> i3TRINQ»<2. 2ft) i- - ■ ' CP-«> RETURN 

CP-5:C<l)-2:C(2)-4iC<3)-5iC{4)-BtC(3)-8>G0T0 4368 

L'ORDINATEUR EFFACE LES BONSHOMMES 
EF»=" •'+CHR*<26)+STRING*(5. 24)+" 

FDRI=lT09JPRINT3PII),EF*t :NEXT 

PR1NT3220, STRING* i 19, 32)13123. " " !CHR*i 26) ISTRING*<2. 24) I * "l 
FORI-lT09:B(I)-(CRND<2)-l)+7)+l INEXT 
FDRI-lT09iPRINT3P<I),P*(RND(6)+B(I))IiNEXT 
I RETURN 
I " 

CHIFFHE OGGRANDITS 
I F»-CHR*i26)+CHR*(24)+CHR*(24) 

•+CHR»(17B)+F«." "+CHR*l 



: r -s: 



48U 
U7I 

4930 
4980 

J9Sl' 

5020 

L1Z2 



5110 
S140 
5170 

S230 

9260 
3290 
5320 

■i35(E) 
L..-EC 
5410 
5440 
5470 
^.^B0 
55T0 

5980 

:-.-99? 



6010 
E0Z8 



701fl 

7020 

7959 



+F*+CHR*<141)*CHR*( 
+F*+CHR*<140)+CHR*i: 
*F*+" "+CHR*fl38) 
+F*+CHR*< 140)+CHR*f 
+F*+CHR*( 141 )+CHR*< 
+F*+" "+CHRK138) 
+F*+CHR*< 141 )+CHR*< 142! 
+F*+CHR*( 140)+CHR*( 



N*(2>=CHR*U79)+CHR*<1B7 
N*(3)=CHR*(131)+CHR*<187 
N*<4)-CHR»a81)+CHR*ClB4 
N* ( 5 ) -CH R* r 1 83 ) +CHR* < 1 79 ! 
N» ( 6) -CHR* ( 1 83 ) +CHR* (179 
N*(7)=CHR*(135)+CHH*(171 
N*(B)=CHR*(183)+CHR*(1B7 
N*'9)-CHR*(183)+CHR*( 187 
RETURN 

REGLE5 DU JEU 

PRINT38S."REGLES DU JEU" 13151. STRING*( 13. "-" ) 

Pf)lNI3259, "CE JEU EST UN CfiS5E- T ETE ..."! 

PRINT3323, "IL VOUS DEMANDERR DE LA REFLECTION, DE" I 

PRINT3387. "LA PATIENCE. ET BEAUCOUP DE LOGIOUE !"1 

PRINT3515. "LE BUT DU JEU EST D'AVOIR DES " 13483, P*CB) 1 

PRINT3579, "SUR LES ARRETES D' UN CARRE. ET D'AVOIR UN" I 

PRINT355B. P*(l)l 

PRINT3643. "AU CENTRE DE CE CARRE."! 

'POUR REUSSIR. UTILISEZ LES TOUCHES DE"i 
1 A 9 . .. JUSOU' A LR VICTOIRE ... "1 

CE5 TOUCHES PERMETTENT DE CHANGER LES PERSONNAGES 
DE CERTAINES CASES, A VOUS DE TROUVER COMMENT ... 

FORI-1TO300IPRINT34B3, P*(RND(6)*B) ;3558. P*(RND(6)>f 

IF INKEY*""" THEN FORJ-ITO601NEXTJ. I 

CLS i PR I NT3B. B* t SB. A* I 362. A* 1 3960. B*l ■ RETURN 

PREPARATION DES PERSONNAGES SI PARTIE TERMINEE 
F0RI=lT09tPRINTaP( I).P*(BCI))1 SNEXT 
RETURN 

L'ORDINATEUR TESTE LA REPONSE 
IF RND(lB)-5 THEN GOSUB 70001 RETURN: ' OU HASARD 
IF B<K)-l THEN GOSUB B000: RETURN: ' BONNE REP0N5E 
GOSUB 90BB1 RETURN!' MAUVAISE REPONSE 

L'ORDINATEUR EST INDECIS 
PRINTa392.T*(l):a2Bl.A*(RND(4))!!SET(22. 21 ) ! SET(25. 21 ) 
FORI-lTOEiFORJ"lTO10iX-RND<9) iPRINT3P(X). P*( RNDC6) *Bi X) )! 
NEXTJ. I i RETURN 




PRINT3707. ' 
PRINT3771. ' 
PRINT3B35, ' 
PRINT3B99, ' 



REPONSE A-PEU-PRES BONNE 
! FOHL-1T03IPRINT3392, T*(4) 13201. 
)(6)-B(X) ) I 
) FDRI-1TO101NEXTI. J 



!FaRJ-lT06iX-RND(9)!PRINT3Pi; 



Suite page 4 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AUTARIFPREFERENTIELDE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x8,00 - 416 FRANCS 

NOM: MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: □ CHEQUE CCP 



I GLOUTO M p-Ftt 



GLOUTO est un petit groimphr (prononcez : PAC-MAN) 
qui parcourt un labyrinthe a la recherche de pastilles ca- 
pables d'apaiser sa faim. Parviendrez-vous a le rassasier 
sans qu'il se fasse croquer par ses ennemis gloutons ? 



Pascal et Erick HOSTACHY 




l 


REM 


*■■■■■> 


GLOUTO »•*• 


.« 


■ 




REN 




LTITECH mpf- 


tl 




3 


REM 


PhP PRSCflL f. ERIC 




t 


4 


REM #■!•»■ 


HOSTACHY ** 


|1 


■ 


5 


PRINT 


INPUT 


"uoulEZ-i.'OUS 


LES =e 


DL 


JEU ' 


' N> 


iC* 








IF C* 


"0- then casus im 




e 


GO SUE 


100 








10 


GOSUS 


1500 








u 


REM 


« CONS 


RUCTION DU L 


mE 


'HINT 


12 


U . 8 


r = o o 


■ F = o :■; 


. 


Y 




- 30 m 


- L 









1 3 


OR 


:olor 


■ 3 






13 


FOP I 


- £ TO 


23 






28 


PLOT 


-25 - 








38 


PLOT 


* 15 


10 - I 






48 


ME ' 










50 


FOP I 


■ 1 TO 


15 






60 


PLOT 


+ 1.2 


I * I 






79 


PLOT 


* 23 


. ♦ [ 






sa 


NEXT 












DAT& 


5.21.6. 


.7, 12,21 . 13. 1 




3. E6 


34 


19.20. 


934.: 


1.7.20.13.20 


21 


26 7 




2?. 14. 


=7.20.3 


.14.33.20 






63 


FOR I 


= 1 TO 


17 READ G.l 




:ol:p 




■ fi PLOT C.E 


NEXT I 






68 


COLOR 


■ 3 








90 


FOR I 


- 1 TO 


20 






IM 


PLOT 


3*1. 


.5 - I 






119 PLOT 


» + I. 


'0 - I 






121 


PLOT 


10 4 I 


32 - I 






13i 


PLOT 


15 + I 


37 - I 






14« 


NEXT 










13( 


FOR 


■ i r 


13 






16< 


PLOT 


1*1 


.3 * I 







PLOT 16 

PLOT 17 * I ■ 



11 



.8 PLOT 22 - 
!9 NEXT 

19 DATA 29. 10 19. 18. 17. 11,15.24. •: 
'-25.24. 18- 22. 30.29,23 
19 DATA 23. 39, 29, £4, 15.25, 17.24 , 
14. 16.29- 11 18 30,39. 17 
19 COLOR = 
;e FOR U ■ 1 TO 16 
'9 READ HP 
19 PLOT N,P 
19 NEXT U 

19 REN « DEPLACEWENT DE ClOUTO 

12 POKE 49952.32 POKE 40953-67 

PUKE 49?54, £4-3 POKE 49955,13-3 

POKE *0956.255 POKE 48957.96 
15 COLOR ■ 3 PLOT X,V 

8 CALL 48952 

2 Q « SCPNl XV - 1 ) 

4 U * SCPN( K.V * 1 ) 

6 E ■ SCPNt x - 1 , V) 

6 R ■ SCPNC X * I/O 
!0 A * PEEK <255> 



129 


COLOR * PLOT Z.S 






339 


IF A « 249 THEN 300 






349 


IF ft ■ 241 THEN 490 






339 


IF A ■ 136 THEN 429 






360 


IF ft « 149 THEN 440 






370 


CO TO 500 








369 


[Ft>2 THEN 


520 






387 


IF = 6 THEN 


GOSUE 


1150 




399 


GOSUE 460 v . 


V - 1 


GOTO 


370 


409 


IF U - 3 THEN 


324 






467 


IF 14 = 6 THEN 


GOSUB 


1150 




419 


GOSUB 460 Y = 


V + 1 


:;- : 


370 


429 


IF E >= 3 THEN 


520 






427 


IF E - 6 THEN 


GOSUI 


1139 




439 


GOSUB 460 X * 


X - 1 


GOTO 


770 


449 


IF R = 3 THEN 


529 






447 


IF P. = 6 THEN 


GOSUE 


1130 




439 


GOSUB 460 X - 


X + 1 


GOTO 


370 


469 


COLOR - 0. PLOT X.V 


RETURN 


380 


IF X - 38 AND 


Y - 17 


THEN 


* 


510 


IF x » l ahd V * 24 


rHEN 




520 


IF T = THEN 


:-]-: .£ 


699 




530 


IF U i 4 THEN 


709 






340 


GOTO S00 









610 RETURN 

700 REN * DEPLhCENENT 0£ L'ENNEMI 

795 IF T i 8 THEN COSUB 1988 



727 



if ; 



iND S 



730 COLOR 

GOTO 305 
750 S - S + 1 IF SC 

■ 6 THEN M « H ♦ 1 

THEN 1700 
753 IF 5 = Y AND Z * 

= Y fiND Z = X THEN 
755 F - 1 
760 ■ * 1 
765 COLOR ■ 4 FLOT 
770 IF = 14 THEN 



700 GOTO 305 
300 IF T ■ ! 
BIO IF F > I 
SIS S - 3 + 1 

■ C THEN l 

THEN 1700 



AND S * 1 - Y OR Z 

f THEN 1128 
4 PLOT Z.S F = 



THEN GOSUE 
650 
SCRNi Z 



IF 

=> X AND S « ■:' 
S25 COLOR - 4 
S30 F = 
649 GOTO 303 
930 T - 1 -Z ■ Z 

+ 1 '■ = 6 THEN 



) Z - I * X 

THEN 1120 
PLOT Z.S 



L • 17 THEN 1793 

IF Z - X qhs 3 4 1-1 

X AND S = V THEN 1120 

COLOR ' 4 PLOT Z.S 



E98 GOTO 305 



1999 RE" > EMPLACEMENT IHIT'.AL 
1302 PEN tut i EE L'EHNEHl un 
1003 IF I' - THEN Z - 3 S - 24 

RE T URN 
1010 IF U = 1 THEN Z » 9 S - 17 

RETURN 
1O20 IF U > 2 THEN Z " 1?>S ■ 10 

RETURN 
103O IF y > 3 then Z m 23. S * 3 

RETURN 
1058 IF U i 4 THEN Z = 23 S " 4 

RETURN 
1068 IF (i * 5 THEN Z = 38 S = 11 

RETURN 
1070 IF i 

RETURN 

1190 REM *1 MUSIOUE 'DEPART)' * * 
1105 POKE 770.173^ POKE 771.48 

POKE 772,192 POKE 773-136 POKE 774, 
£08 POKE 775.5 POKE 776-206 POKE ?T?. 
1 POKE 778 3 POLE 77?, 240 POKE 7&8.9 

POKE 781-292 
1119 POKE 782-293 POKE 783.245 

POKE 784.174 POKE 7S5.0 POKE 786.3 
POKE 787.76 POKE 788,2 POKE 789 3 

POKE 798.96 POKE 791.0' POKE 792 



= 6 THEN ; 



1112 FOP I > I TO 70 READ G 
1114 FQC I - 1 TO 3 READ M,N 

1113 POKE 76S-N POKE 769. N CALL 778 

1116 NEXT I 

1117 DATA 9. 50. 9. 39. 0-50. 283. 50 171 25 



ma 


RESTORE 


RETURN 






1120 


REM 


ti 


M'JSIOUE 


1 PERDU 


** 


1123 


FOP 




130 T« 


1 


STEP - 


2 


1126 


FOR 




150 T( 


1 


STEP - 


2 


1139 


POKE 


7fi( 


. I POKE 






NEXT 


I 












1140 


CQTQ 


I960 








1130 


PEN 


X% 


m . -: 1 s 


UE 


■ + 100 


POINTS 


1133 


FOR 


. 


59 TO 


190 STEP 4 




1160 


POKE 


76 i 


. I P( 


<F 


769,3 


CALL 7 


1179 


KEXT 


1 










1173 


SC< Uft 




>C '- 




100 




1180 


HTAB 


24 


UTAB 


?3 


PRINT 




SC(UB 














1190 


. - L 


* 1 










1200 


IF L 


■ 1 


7 - M 


THE 


N 1790 




1210 


IF H 


= ( 


THEN 


RETURN 




1229 


1 = 


NT 


; PHD 


1 


* 2> 




1236 


IF B 


" i 


then 


COLOR - 


3. 


PLOT X ■ 


1 . 




PLOT X * 




♦ 


1 RETURf 










1240 


COLOI 




3 PLOT 


X - 1 . Y 


- I ■ 


PLOT X - 


1 - 


Y - I 


RETURN 





TION DE: N0I15 : 



1520 


FOR I 


■ 1 TO 309 


NEXT 






1330 


HOME 










1340 


PRINT 
INPUT 


- COME I EN 

IIP 


UOULE? 


UOUS 


JOUER 


1343 


DIN SC 


NBR , 








tS4fl 


DIH NOMi' NER ) 








1550 


FOR I 


■ 1 TO NBR 


PRINT 


PR 


NT "N 


OM DL 


JOUEUP 


";I INFU' 


NQM«< 


) 




HE 


<T I 










1560 


TEXT 


RESTORE 








1363 




- 1 IF \>t 


• HBP 


+ 1 




THEN 2000 











1379 


PRINT "C "EST "•NQMf.UA>:' QUI JO'JE 


1369 


FOP I « 1 TO 1909 NEXT I 


GOTO 11 


1799 


REM * FIN D 'UN TABLEAU X 


1795 


IF H = 1 THEN 1809 


1719 


H = 1 


1728 


RESTORE 


1730 


GOTO 11 


1399 


PEN U NUSIOUE 1 CACHE ■ t» 


1883 


FOP t ■ 1 TO S READ O.H- NEXT I 


tsea 


FOP I * 1 TO u 


1816 


READ J.K 


1820 


POKE 768, -J POKE 769. K 


1830 


CALL 778 


1833 


NEXT [ 


1840 


DATA 198.30. 196. 38- IBS. 39- 198. 38. 1 


44. 100. 144.30, 144-39. 144.38 144. 30 96,30 


.72.255 


1830 


GOTO 1569 


2808 


PEM t TABLEAU DES SCOPES « 


2865 


TEXT 


2010 


FOR I * I TO 39 HTAB I VTAB 1 


PRINT "1?" NEXT | 


2013 


FOR I = 1 TO 39 HTAE 1 UTAB 23 


PRINT 


"9" NEXT I 


2029 


FOR 1=1 TO 22 HTAB 1 UThE I 


PRINT "9" HTAB 3S ' UTAB I 


HEX 


T [ 


2939 


HTAB 12 UTAB Ji PRINT "«tl SCORES 



2949 FOP I = 1 TO HEP 

2959 HTAB 8 UTAB I » 2 + 4 PRINT «0M* 

< I >-■ .SC< I >: H POINTS' 

2969 NEXT [ 

2199 REM I* MUSIQUE <F1N> tx 
2103 RESTORE 

2105 DftTA 85.30.57,50. 96. 209. 6 5 59,64 
30. 85. 50. 57. 50. 83. 38. 51. 290. 51 50 57.58 
. 64 . 255 
2110 FOP I = 1 TO 30' READ T.O 

NEXT I 
2113 FOP I = 1 TO 13 
2129 READ H .L 

2139 POKE 768, t: POKE 769. L 

2140 CALL 778 
2159 NEXT I 
2166 END 

2299 REM t RECLES DU JEU « 

2219 HOME PRINT TAB< 18 > ; "SEGLES DU 

JEU" 

2229 PRINT TAB' 10>."' X t I t 1 t - 

2239 PRINT PRINT PRINT "ENTRi:: DONS 
LE LABYRINTHE ET AUALE2" 

2240 PPIHT -TOUTES LES PASTILLE-; OUANT 
QUE UOS" 

2250 PRINT "ENHEfUS NE LE F4SSENT FOUR 

UOUS " 

2260 PRINT "ET ftUAHT Q.U ' ILS NE UOUS MAN 

GENT • 

2278 PRINT "ENSUITE.UN OEUXIEME LABYRIN 

THE WOUS ■ 

2280 PRINT "EST OFFERT UOTPE MISSION N ' 

A PAS CHANGE" 

2298 PRINT "MAIS IL N "EN EST PAS OE NEM 

E POUR LES " 

2388 PRINT "PASTILLES EN EN MANGEANT UN 

E UOUS UOUS" 

2310 PRINT "BLO'JUE UN PASSAGE PAR CONTR 

E UOS" 

2328 PRINT "EHNEMIS GLOUTONS ■ EUX . PEUUEN 

T PASSER." 

2330 PRINT "ALORS FAITES ATTENTION !!" 

£348 PRINT PRINT "NE UN TUNNEL UOUS 

FERNET DE PASSER" 

2358 PRINT "D'UNE EXTREMITE A (.'AUTRE D 

U LABYRINTHE." 

2360 PRINT 1 PRINT •■ TAPEZ UNE TOUCHE PO 

UP COMMENCER " 

2370 GET A« PRINT PRINT TAB' 8);"S0 

NNE CHANCE • ! " RETURN ■ 



^ Suite de la page 2 




VIC 20 



i Ml 



90S H1*M1-! P0KEH1 
310 IFV=2THENP1 
950 MI=Ml*i pa 
968 IFV=2THEHPi 

eee n2-*c+2a i 

010 IFVl=2THFl 
056 H2=*e-M I 



3: IFV=lTHEMPi]KE«l + l ■ 
■I -12 GOTO250 
3 [FV-1THEMP0KEH1-1 . 



,-.mT'\;"=m 



13 IFVt = lTHEHPi^F.M^-;v.^ i:.i;iTm-?3Ci 
■'-£t- 3= OOT0336 

13 IFV1 = 1THEIIP0I FtL-::_ '.-ijlU;:^' 

t+22,32 GOTO330 

i IFVl = lfHENP0KEM2+l -H OOTOiJij 
:+l 32:©OTQ330 

i IFVl = lTHEWRnKEl'U--l f '■-'jrn.-'.-M 

-1 i2 COTIJ330 

:36S78, 10 F0RI*J»22©TOI8SSTEP-3 
)2\m 



*EF 



in=lTCi5y MEXTO'j 
-THEHFOiEF'.ii' -ooToseie 
-'THEMFOI-EP . 23-OOTO2810 
4 1 HEHPi> EP ■ kt 00 1 020 1 
2THEHP0H EP - 25 GOTO20i0 



1* 1 I FMt.K 1 89THEHO0 r02 1 00 

2Q20 P0KE3e«74.l1U FCiROO»lTO50 HEXTOO 

2036 NEXTHU 

210m FORrin--iTr,KM,;. nEVTijij POk E ;>.jS74 P'>E3b>:~3 1 RETURN 

5000 Mf=^l-"- FnPl'5=H , 5TOfl5+ , 511 POtEIS-PEEf. I=.+2'-V.4t( ■ HE -T 

5010 FWL-0TO2S7 REMJF5 POt EF(5*L -F5 NEXT 

-0:0 ih;m.- .- :- ■', :- :» m ii ..:■! i- - i ... .. .->. :, : . .,..1-. . 1 .. ,■; j . 

=.v.mi IihTm- . ■-. ■', i -..-.. 7 i.-i 3t. 36,33,32,32, 35,36*36. 3fij36,193*0>e*2NM 

5040 WTH36.36.1?b.4.4. 1?6. 36. 36.0.0,255.0-0. 135- 5S- 3f..0.0.0.24,24-0.0.« 

5>?50 riflTR0 . i? . 255 ■ 255 ■ ■ ■ 3(j ■ 36 - ?€■ 36 - ?6 36 ■ 36 • 36 • 36 ■ 36 ■ 135 ■ ■ ■ 135 ■ : 

5060 PflTA.0.;'4. H'i.S'i.Se, 36. 24. 0.60. 66. 165. 123. 163. 143. 123, 170.0.0,24. V 



5070 DHTHif. 36. 36. >;.. se 
5080 riHTH6u-U6.252.24t 
5030 DhT*0.66.231 -231 . : 
5100 IMTO60, 126 255 259 

5110 DHTA0.0." ■■ .' 1-" 

=■120 r.OTOiee 

10000 PPIHT-riH*»mK3i!imnC.II[ItlH" PPIHT"»»»E.'THHHHHH3:'WHHHHH3;" 

10010 PRI»T'-li»EinHaJSIH3iHWHH3»P!»l34!»IS.'" PRlllT"IMM8iW3iSHH3HPnH3" , FSI 



00 J4-: 4.4.24K-0 . 0.0.0. 31 ■ 32-32- -1 
'52- 126-60. 60 126 63 15 15 .6?. 126,60 
i - 1 26 - 60 , 60 1 26 ^t. ■ 255 . 231 ■ 231 ■ 66 ■ 

'55. 12-'-. 60-0 0-123 135.223.22:? 126 60 
17-82.32.3.132.0,42,73 



10020 PRlHT"«MEi:n3:p:n3:'fHHH3:i:n3;'i-::nsi ■ f 

10030 PPI»T-»MIBI-IPrH3JHl»(HH3i!FinH3:iIF" ptiw 

10040 rriiiTTiatwTiiiiiiifiiiiiiiininiiriiiiiiiiriiiEi i 

10053 itmiii mttiiit niiiiiiiw;iiMi*na>Mimi ■ pp 

13060 PRIHT"li0*QJBH»nP)»fflOBIHBIIP»«J" PS 

10070 PRIUT'iMlD'inilinilHIB" 

10100 PI*106 RETURN 

10200 RETURN 

1100O PRiHT'TiiwwiMO-finininniiPi" frint m i 

11010 pPiuTiBMEiTnauM ipaMDiiopaMBj* 1 ppihi 

11020 Pflltnitt&UUWKSHHSPnVBfiSHKMnBF' f 

11030 PRINT'->»»B>EirH3VlF'^H3-M.FTl-i3 Jhti^st i Pt 

l ;04m PF [NT 'l»MG.'H3J!H3.if«iH3^*V3'T2" ' 

11050 PPINT"IBiB»ET^lHH3'P^HH3^H7HHH3l" pRJHl 



[HI '■••»K'^Hhhhhh3_7HHHHHH3' 1 
»>tE 1 7HHHH3IiPrTH3'if rUHHHS 1 " 
■ "" ■ IM»E'nWH3J^HHHa(THHWS;r> 
" ■^^P^E.t^HHHHHH3 , ^HHHHHH3''■ 

'1 '••••EjmHHHHHHHHHHUHa.'" 



■PPEITHHHHHHHHHHHHH3'" 
'lOiE.'WHS.lSUHHHHHnStnWHSI'- 

: ':'IT■'||lME!^^HHHHHHHHHH"l-^3' , ■ 

■ • " xwe'ihs nnwhwn-iHHHjj tt<3 • ■ 

>:NT"nMiEjrn333HHiiHa TViMhHa;^^ 



11060 PRINT "IMB)EinH3J7WHH33EPnHHH33TH3J" PRINT ,, IM»Ej:HHHa.|:rHHHHH3irHHH:::" 

11070 PPINT"ltMta:iIIEIIIlIEIIIS" 

11190 PI=103 RETURN 

12000 FKIlli ";lUlIf»MB<l imillliniH" PRINT "Wi»C.fnHHHHHHHHHHHHHSI" 

12010 PRINT "l»MEiSH3""'PSH3: i HSW3»P!»t3: i H^3.l" RR!MT"l0MB.liiIH33!iHHH3:i!iHa:i!»tHH3:iSH3J 

12020 PRINT"llMETSHHHairHHHHH3!r7HHH3l" FPINT "IIMEDIP^H3.lTH3?lPrW3J7Ha^IF" 
i;,0^0 PClMT , 'i>MEirHHH3.i^HHHHH3irHHH3'" PRINT -'iPHE'rHairTHa'i^na (OF ^3 S0MMU " 
1204O PRlNT"IM■E.^n-^^J^HHHH3.'^HHHH^^TH3l■ , PRIN1 "l»«iEln^HH^■P^»^^'.'^^^'MrWHHS^ , 

12050 print '■liiieJsna-innaiinvtHHHHa.-isnairwat" ppiHT ,, »0MiSJnns-'nnHH3Jnn3-tsnHHa.isns.i 

12O60 PRIKT'ttMSUAtt I I [HITHa: I I [JJWSU" PPINT"»»C.'THHHHHHHHHHHHH3J" 

12O70 PPINT"IMiD"lIIl II III I] I IB" 

12100 PI=10S RETURN 

13000 FF Itn-^tWUMiBMIIIIIIIlIlIIfl" PRINT ■■|iMlE'^HHHHHHHHHHHHH3.I' , 

13010 pF:iHT"«»isisw3:'inii:.iinPm3J" print , «m»e;'T(Hhhhh3:'™ihhhhh3.'" 

13020 ppiNT"iM»ETmairTH3"'HrrnHH3«pnnai7na | " ppint"im»ejsh3ishh3: iiM^^Ha.'rus.i" 

l --iO^O FPINT"IMPeiSW3I'PSWHHa):inHHH3"'FntH3T" PF'!in ' l l0«'ElTH3l. - FHHai^HHHai^lH3i'r>(3' " 

l"i040 PPItlT"l»»»E'^3.irH3"'Fi^Ha.^3:P^3'rH3J" RPINT■'«»itlEJ^^^'^'H)iMM^^^ f ,H3.^TIt^.l■■ 

13O50 PF'INT'liBiE'fUSrnP^HainHST'IIF^S!" PPINT i 'IB)i»E.'^3lTHHHH3.!7l^HHH3.'.TH3T" 

13060 PRIHT"IMMS.ITH33™H31-inH3:.'EP5Ha-i5H3jSH3I M PPIMT"*»MiElrllllH3;^HHHHH3T™HHH3T- 

1307O FRiNT"»M6r nnniini iib" 

13100 PI*1B2 RETURN 

14000 PRtHT"3MMtmiI] 1 I nilimiH" PRINT "IM^•E'rHHHHHHHHMHHHH3.' , ■ 

1 4005 PRINT ■ iMBEi:H3"' I FHHB I PTW3"' I PliHBJ " 

14010 PRINT "IMHB.TSHHHHHHHHHHHHH3'" PRINT "lf«EDP7H3-'I Ih:H3*I IP^H33F" 

14O20 PRINT "I0MET.THHHHH31^H3'THHHHH3'" PRINT B M#MtIBWIIIHB, rT»l3 T ^H3i:vH3_:»Hai^H3' 



• 40.10 

140^0 
1 40-0 
14100 

1500'"' 
15.? 10 

17.020 

HK3T" 
15O30 
15040 

1 5050 



PFINT"rt»BEirH3irrHHH3'^3.i7HHH3.'r>l3r' PPIMT"l»i»EIrrH3;iPS , HHHHH3."'IF^H3'' 

ppiNT"»»MEirnHHHHatrrnai^nHHHH3'" ppinT"i»MEi'PwaJi i3ns: iipbw3):'F" 

FRIHT"l»i»BTSHHHHHHHHHHHHHBJ" I I III! WHJII. II IIUIII III I [IHPfitUV" 

PF T"T"^^»^E1^»^HHHHHHHHHHHH^'■ I PF INT HMD 11111111111111:" 



PF'IHT"H«"l«liWBMIIIIIIIi;ilI![IIIfl" PRINT 1 
PRINT"B*BJS>B9S] I | [PBHH>fflB] II [MtOJ* PRINT 1 
PRINT"»fjua>«oswaB] lP■^H3.l^^n^;'IIHTn^:l^^'3.''■ 



PR I 



'^HHHHHHHH3~i7HHHHHHHH31 " 
!SH3'^HHHHH3irHHHHHH3TrH3 

H "l»E'^HHH3lrTHHHH3 'TH"h; 



PPlltT"l0BtiF^H3"'l:™H3'.F-nHHH3"'prH3'P!mariF" F'PINT "»»EI^HHHHHHHHairHHNHHrHH3! " 

ff iuT'-WBirnar'1 1 1 ]FIW3"t!!K3-'imPSHS.i" PRINT"»»«jWWHHH>IHHHHHHHHHHHHBJ" 

p p i nt "i»b: i m m m i i n ii i B" 

PI-:"-: RETURN 

PPlNra««M'IHH'iN»I»Wi'l'IMi'Wi>tnn»»»»»w*"-FiHFMjVEP" PPItfT "Bfc.aTRPERa II kPOUP PEJOU 

i P0KE36J ;"" " 

> GETOB 

J IFR»="N" THEN 100 m 

, r.r.T.-i.-.-n-.i.. ■ 



Suite de la page 3 



TRS80 



PRINTaPCX),P*(RNDlE!' 



S030 

: 'U^ 

soea 

9B7B 



I PRINT3392. T»i 1 > t tFORJ- ITOE-t X-RND<9) 
I FORI-1T01B:NEXTI. J.L 
1 RETURN 
} ' 

nnuvnisE reponse 

I F0m_-lT02:PRINTa392. T*!2> i :SET<24, 21 ) JSETi:27, 21 ) :F0RJ»1T06 
I X-RNDO) :PRINTaP(X).P*(RND(E)*B(X> )t tFORI-lTDtai NEXT I. J 
PRINT3332. T»ri) t I SET 122. 21) :SET<25. 21) =F0RJ-1T06 
X-RNDC9) IPRINT3PCX). P»(RND(6) *B< X > )X :FDRI-1T01B1NEXTI , J 
PRINT3392.T»(3) ttSET(2B.21) iSET<23. 21 ) IF0RJ-1T06> X-RND(9> 
PRINTaP(X),P*i RNDC6)*B(Xl)IiFORI"lT01BiNEXTI. J 
PRINT3392. T»U) ! : SET 122, 21) i SET (25. 21 ) iFORJ-lTOE I X-RNDO) 
PRINTaP(X).P«IRNDlE)-BCX) ) : : FORI-l TOlBiNEXTI ■ J, L 
RETURN 



- BOUSSOLE : 
->— : sortie vers la droite 
-<— : sortie vers la gauche 
-■— : sortie en face 
-V- : sortie derriere 

- LABYRINTHE : 



TRESOR 



Entrezdans le labyrinthe en trois dimensions et trouvez le 
tresor. Facile ? c'est compter sans le monstre affame qui 
rode dans les couloirs et sans I'horloge en temps reel qui 
minute le jeu. Vous avez tout de meme une boussole et un 
radar pour vousfaciliter la tache, mais leur utilisation n'est 
pas gratuite. 



Gerard FERRANDEZ 



- INTERPRETATION DE LAFFICHAGE : 
affichage en debut de partie : 

■ | • - • - H _>- 

A B C D E F G Boussole compteurde 

— i deplacement 

vue du labyrinthe en -3 dimensions" _ , 

• les ■ situes a droite et a gauche represented les murs lateraux (A et , , u CMn - wl • 

G) de la salle ou le joueur se trouve * entrer le programme (certaines lignes doivent etre compactees en 

• les 5 represented les 2 murs de la piece suivante (B et F avec F ou- su PP rin 2ant les espaces). 
r K v • fatre DEFM 3 



pA 






















2 






















3 






















4 






















5 






















6 






















7 






















8 






















B 






















10 























Sortie(IO.IO) 



vert). 

• les * represented les murs de la troisieme salle (C et E) 

• les — (ou ■+•) : les murs du fond (ici, ouverts) 



:l salle 



, mur terme 



IBCDEF \" 

salle Y 




NB : si le mur en face du joueur est ferme, il ne voit hen derriere 
ii voit : ■;;:;;■ 



• le monstre est represents par un S clignotant 

• le coffre est represents par un *** clignotant. 



- POUR SE DEPLACER : 

le joueur dispose des touches : 

- 5 pour avancer 

- 1 pour aller a gauche 

- 3 pour aller a droite 

- S pour faire demi-tour 

NB : attendre la confirmation du deplacement a I'aftichage (fleches) 
avant de relacher la louche (a 1 a 2 sec.) 



-COMPTEAREBOURS: 

si le joueur maintient enfoncee la touche T pendant plusieurs secon- 
des, il verra defiler le compte a rebours (accessible a n'importe quel 
moment de la partie). 



- MEMOIRES : 
A©— 1,111111111 

B0=0,1 1110001 
B1— 0,1 1010001 1 

B2=0,011011011 
B3— 0,11 11 1011 

B4-1. 100000101 
B5=Q, 10000011 
B6-0.101001 
67-0,000001 
BS-0,11 



B9-1, 111111111 
CO— 1.01100101 
C1-0, 0000101 
C2-0.O1 011011 
C3-0.01 0111101 
04-0,100011111 
C5— 0.1101 1101 
C6-1. 1011011 
C7-0.100001111 
C8-0.0000001 1 
C9— 1.1 11111111 



- REGIES PARTICULIERES : 

• I'utilisation du radar fait perdre 3 minutes au joueur, et, a cause des 
frequences emises, attire le monstre vers le joueur. 

• si par malheur, le joueur rencontre le monstre, il ne meurt pas mais 
perd 20 precieuses minutes du temps imparti (1 heure). 



- RADAR : 

en appuyantsur la touche R.le joueur apprendsescoordonneesetvoft 

si le monstre est dans les parages. 

NB : enleve 3 minutes et attire le monstre. 



1440 STEPS 

1 B=l;HflIT WW 
t+"LfiSVS!HIHE' ? : 
HI8<i,S)S!MHT 

(RAHf*9)+i:G0T 
288 



2 KRIT e:iF KEY=" 

3";WT CSR 9;"> 

"itcio m 

3 IF KEy*5*;ffl 
CSR ?j"f i&OTO 



4 IF KEY^nFPT 
CSK 9;"<"i80T0 
788 

5 IF KEY«","!f« 
CSR 9;"V":60T0 

lEi 



205 



1 initialiser les memoires 



- INITIALISATION DES MEMOIRES 

• memoire S : $ - " ■■■■■■■" 

le contenu de celte memoire est assez special : lecurseur fixe et la ma- 
trice pleine ne sont pas recuperables normalement, mais tous les utili- 
sateurs du CASIO connaissent le "true" pour recupererces caracteres : 

- vider completement le CASIO 

- faire DEFM 20 

- remplir les memoires avec : 10 FOR I = 0TO 200 : AOJ-RAM % : NEXT I 

- retirer les piles pendant 1 mn to sec. environ, 

- lister les memoires {list VI. elles doivent etre remplies de signes biza- 
res dont - et ■ 

- les ranger dans S 

NB : la memoire S peut etre remplie par n'importe quoi, elle sert egale- 

ment a embellir I'affictiage. 

On peut mettre %—". H H h h h H H " par exemple : 



1 58 

1(98 

nee 

ISM 

1988 



2190 



2489 

net 



i FOP C=8 TO li=H 
EXT DilF ffif="T 
";E=3:PRT :MtS 
6 

I 6=6-1/3688: IF I 
iSIFRT :PRT "T« 
EE»...*;EM 

i IF KEY="":!F E= 
3;E=8:60T0 4e3 

I IF KEY="R" IHEH 
5e3 

1 6310 2 

! IMH1 (R(«!»iet 
<¥-l:U=<U*. !:U= 
18KU-1HT U:RET 

( X=l:Y=l=P=l :R=1 
:S=B: J=l:K=B:f* 
=Tt II R I'lW 

0=9:11=8= V=8 
9=IHT (ROM*!)* 
t:G-IHT (BUM 
Hl:[i=IHT (RDM 
•SHI 

SOC :H=B:L=B:M= 
8*8: 9=8: PRT " 
TRES0R:";n?6:S0 
TO 1488 

IF RfcliFUl Ft: 
SOTO 4e3 
SOTO 1288 
IF fi9<B:PRT Ft 
SOTO 4e3 
IMMWWWR 
SOTO 1180 
IF R3»8;PRT Ft 
SOTO 4e3 
F:=-P*P*RtQ*Q*R 
SOTO 1188 
8=-6:P=-P:s=p*Q 
iSOTO 1288 
0=0:«=R»P*P:P=R 
•0*0 
X=X*PiY=Y«:S=S 

IF XslOlIF YilO 
THEH 6e3 
lf=W*P+Y»8«Q:L 

=»a»Q«y»?ip 

»=34.5*5«;P»P-8 
»8»,5»(M 

H=34.5*5«iFtP-Q 

»8H.5*(9-P 

&-9:!F ?;9l0=l 

FOR 1=9 TO 2 

V--i,*F,iT:«='l>H; 

-Il:6Se 188:0(1 

H=(L*H!-2l:8SB 
IM:fl(T«)=ll 

V=L:H=(tIt48t(H 

F)-0-(18»F»P'O- 

il'.SSB 199:fl!T* 

0*1! 

NEXT T 

PPT CSR 8;Ml",l 

.7)!HF 08=1 iPR 

T CSR 3!'t"! 



4691 it 05=1 iPR! CSR 

2:"«"; 
4992 IF R2=1;PR! CSR 

4;"»": 
499! IF fl?=l;PRT CSR 

2',"*Wj 
4994 IF 04=l!PRT CSR 

UTI 
4985 IF fll=l:PRT CSR 

5S"t"! 
4896 IF R6=I;PRT CSR 

!:"Htir; 
498' IF R3=liFRT CSR 

lihwo.i)! 

4889 IF 00=1 JUT CSR 

flMMI.Ul 
4819 PRT CSR 16;S;:B 
=8-1/728 

4811 IF P=liPRT CSR 
12! "->-'! 

4812 IF p=-l;PRT CSR 

12;"-<-»; 

4813 IF B=llPRT CSR 
121"-+-*! 

4814 IF a=-l;PRT CSR 

!2;"-Y-„; 

4815 KfllT 35:lF X=0l 
IF Y=6;60TO 7e3 

4928 IF X=Di!F Y=2 T 
HEH 8e3 

4838 SOTO 2 

5898 PPT :|ffi!T 19:6= 
B-2'48:PRT "COO 
Rl>: ";X:Y:NRIT 
5 

5895 IF BBS (X-DHRB 
S (Y-Z)i2;F0R C 
=9 TO 5: PRT 'flC 
HSTREV:REXT 
C 

5818D=D-l:IF KX-li 
M)*2 

5828 Z=2-l:IF KYiZ« 
2*2 

5825 SOTO 4e3 

6889 «fl!T 15: IF SX»8 
:PRT "C:EST REU 
SSI!","¥ICIDIRE 
!!!!":EHD 

6818 PRT "ET LE TRES 
OR ?": END 

7888 FOR C=9 TO 78: P 
RT CSR 2:"===": 
CSR 2I"XXX"::HE 
XT C:6=8:ST«T B 

7885 SOTO 4e3 

8898 FOR C=B TO 58: P 
RT CSR 3:"»";CS 
R 3:"t";:NEXT C 
:B=8-.3:2=B:60T 
4e3 



'« VflR LIST 
tm: % Pffii 1449 



s = e.7i«»::::3: 

C =8 

0=2 
t =8 

ft =n i' r > 

S = 7 
H =3 
I =8 
i = ] 



0?= 1.111111111 

S3 = 8.11118981 

61 = 8.118189911 

82 = 9.911911911 

B3 = 9.11111811 

64 = 1.19898819! 

65 = 8.19889811 

66 = 9.191991 

67 = Ie-96 

68 --8.11 

BS = 1.111111111 

C8 = 1,81198181 

CI = 1.81E-85 

C2 = 8,81811911 

C3 = 8,819111181 

C4 = 8.189811111 

C5 = 8.11611181 

K = i.iemeu 

C7 = 8.189991111 

C8 = I.Ie-87 

C9 = 1.11111111 



f^ 



-roa^l 



SAUTE-MOUTON pC 15°° 



Les moutonsde gauche et les moutonsde droite! Non.ce 
n'est pas de la politique mais un casse-tete sur lequel il ne 
faut pas s'endormir ! 

Llobjectif du jeu est de transformer la figure du depart 
(N° 1). oil les moutons se font face en la figure d'arrivee 
(N° 7), ou les moutons setournent ledos. Ftource faire uti- 
liser les fleches < et > du clavier. 

AntoineMAHIEU 



www yfyfw 


► ou 4 




www. yfwn 


► ou 4 




WW ww»>f- 


► ou 4 




WW.W f>* 


► ou 4 




W .WWW>fW 


► OU 4 




W W W.>f Tf "W 


REFUS 




>» yt yr .www 


GhGNE ! 



10:RErl "SflUTE-rifJU 

TON" 
2B:RErl "OUTEUR : 

Antolne MSH1EU 

93:RErl "INlTIflLIS 

AT IONS" 
10fl:UfllT 0:Din CISC 

2)*20, n(8) 
1 10: n$(0) = "081C7Cl 

C1C7C1C0E0606" 
120:n*(l)="06060El 

C7C1C1C2C1C0B" 
130: n*C2)="0000000 

0000000000000" 
140:FOR n=0TO 1 i D- 

■4J:n 
150:FQR C=DTO D-*2 
160:GCURSOR C*J2: 

GPRINT n*(H) 
178:rKC-H >«f1+] I 

NEXT C:NEXT rl 
1S0:GCURSOR 110: 

GPRINT "7F3E1C 

08"; :PR1NT " o 

u "I : GPRINT "0 

81C3E7F" 
190: C=1 

200:RErl "SfilSlE" 
210:fl*=INKEY* : IF 

fl*=""GOTa 210 
220:O=OSC 01 
230: IF S=S1F C>1 

LET B=C:OC-l: 



GOTO 310 
210: IF f->=12JF C<7 

LET B-C:C=C-H: 

GOTO 310 
250: IF n=O3G0T0 11 



270 

300 



400 
410 



420 

430 



450 

S0B 



510 
515 



GOTO 210 
RErl "DEPLflCErlE 
NT CURSEUR" 
BEEP 1, 150, 10: 
GCURSOR 12*B-2 
:GPRINT 0;0: 
GCURSOR 12*C.-2 
:GPR1NT "4040" 
:G0T0 210 
REH "ETUDE DU 
COUP" 
rt=fKC):F--SGN 

cn-i . 5) 

IF I1-0GOTO 610 
G=C+F: IF n(G)= 
0GOTO 5)0 
G=C-*2*F: IF H(G 
)=0GOTO 510 
GOTO 518 
REM "OPERATION 

flCCEPTEE" 
IF G<10R G>7 
GOTO 610 
IKC)=0: GCURSOR 
(C-l >*12i 
GPRINT n*(2> 
rlCG>=n: GCURSOR 
CG-1 )*12: 



gprint n*cn-u 

530:REH "TEST DE F 
IN DE PORTIE" 

540:E=0:FOR 1=1 TD 
3:E=E-H1(I ): 
NEXT Ii IF E=6 
FOR J=5TO 7:E= 
E>rl(J):NEXT J: 
IF E=3BEEP 5: 
CURSOR 18: 
PRINT "GfiGNE! 

550:GOTO 210 

600:REH "OPERATION 
REFUSEE" 

510:CURSOR 18:UA1T 
20:PRINT "REFU 
S ":U01T 0: 
CURSOR 18: 
PRINT " ": 
GOTO 210 ■ 




1= 



STARTREK 



Les vaisseaux de guerre KLINGON ont envahi le QG de la 
federation et devinez qui prend le commandement des 
brigades de defense ? Vous, avec un ordinateur pour vous 
aider dans cette grande aventure spatiale I 



e GRAB 

1 PRInTChR*(17) :CLSspaPER0s;nK2 

2 Dh*=ChR*(4J :CC*=CHR*C2?) 

3 S« = ' SUPER STAR TREK' 

4 FORI=0TO8:PRINT snExTI 

5 PRINTDH«CC*"J"; 

6 FQRIMTOLEN(St) 

7 A=lNT(RNDm*7]*l) 

8 iFfttesoRn^eeTHEN? 

9 PRINTCC*CHR*lA)MIO«(S«, Iillj SNEXTI :PRI 
NTDH* 

Z PRINT :PR1NT spRINT SPRINT SPRINT :PRINT 

1 PRINT"Uoulez-vou* It* l|»*trli«t l*n* V 

2 GETS*:CLS 

3 IFS«='N"TmEN2000 

4 IFS*="O"THEN]00 

5 PRINT"REP0NDE2 PAR '0U1' OU PAR >NON' 

6 UAIT200SGOTO10 

00 PRINT:PRINTDH*CC*"J ,, CC*"C" X 

02 PRINT"ln«lruct;on* pour "CC*"N*'CC*"A" 

04 PRINT" SUPER STAR TREK" 

06 PRINTDH*:PR]nT:PRJNT 

10 PRINTCCCH'CCf'El.'CCf'B' ; 

12 PRINT"A I'.li.c^t 0* 'CQMMANDE ?', 

14 PRINTSPCOrtres I'une an common ties 
ualldet !" sPRINTOH* 'PRINT : 
PRINT; 
16 PRINTCCt"J"CCt"F" ; 
18 PRINT'NAU SRS LRS PHA TOR SHE DAM CO 

20 PRINTDH* :PR]NT:PRINT 

22 PRINTCCf H'XC*' E2. "CCI"B- i 

24 PRINT"5i uoui topez una commande nan 

26 PRJNTSPCC3)"Vel -de, une l>llt Bbreqe 

20 PRINTSPCOrmande* giiU'ooi mi a 

30 PRINT iPRINT:PR|NT 

32 PRINTCC*"H"CC•"E3."CC•'■B■ ; 

34 PRINT'Tertamei commandei exigent I" 



38 PRINTSPC<3rmanda 'NftU' 

E C1-9J') 

40 PRlNTSPCC3)'S; ooue tat 

42 PRlNTSPCC3)"i/*lab1a* tt 

< 01. 
44 PRINTSPC(3)"la coioiundi 

50 GETS«:CLS:PAPER0:INK6 

70 PRINT :PRINT:PRINT 

72 PRINT" La aalaxl* *tt 

74 PRlNT-'royage de 8x8 qu( 

que 

76 PRINT"quadrant dlwiee t 



,rt 

84 PRINT'commencer un lour d'operationt 

86 PRINT' tant qua Commandant du uaitaaa 
88 PRINT"laire"CC*"CENTERPRISE'TCf'F; « 
90 PRINT'reperer et detruire la I lot te 
92 PRINT*eaux de guerre de KLINGON qu . 



96 PRINT :PRINT"Er> 1 



I GOSUB3000 

I PAPER] MNK4 

' PRINT :PRlNTDMtCC«"Q"CC«' , N"CC«"9" 1 

PRINTSPCC14) "NAU" :PRINTDH<:PRINT 

i PRINT :PRINTTABC]B)"C0NTR01E DES MOTE 

; WARP 

l PRINTSPRINT 



RINT-l 



404 PRINT' me 



"CCf 



PRINT 


est 


a 


pl- 


h 


n 










PRINT 


rou 


E 


] 


I 


A 










PRINT 










A 6 




a 






PRINT 


Let 


u 


leu 


* 


A 


7 








PRINT 


app 





.. ,. . 


9 


PRINT 


• 4U 


u 


lin 


a 


GOSUB3080 








PRINT 


PR1 


■ 


PRINT 


PRINT 


U 




• * 





da lacteur WARP. 
) GQSUB3000 
) PAPER3HNK0 
i PRINTDH* 
1 PRINTCC*"S"CC*"N"CC*"D" 




Pierre GASQUY 



546 PRINTTABC2B)' SRS' 

548 PRINTDH* SPRINT 

550 PRINTTABlia)' EXPLORATION PAR DETECTS 

UR5 

552 PR!NTTABC23)'A FAI8LE PORTEE" SPRINT 

554 PRINT 

556 PRINT" Lei tymbDles tur 1'eera.n da 

vol'* delecteur sort i 

55B PRINT =PRINT 

560 PRINTCC« , S'CC« i, H-CC«"A<i>"CC«"i- Pos 

5B2 PRINTCCfS'TCfH'TCCA.K.'CCf'B" Cro 

.**ur de KLINGON 

564 PRINTCCf'S'TCf'H' CC«'A>!<"CC«"i = Sta 

rbase lederale 

566 PRINTSPCC?)" Crawl t./repar. 'rearm... I 

CI 

58B PRINTCCf'5 "CC«"H"CC*"A * ' , CC«"i= £to 



574 PRINT:GOSUB3000 
640 PAPER5:INK6 
642 PRINTDH* 

644 PRINTCCf'U' CC*"N"CCfi" i 

645 PRINTTAB[2B! ,, LRS 
648 PRINTDH* 

650 PRINT:PR|NTTABUBr-£XPLORAT10N PAR D 

ETECTEURS 

652 PRINTTAB(23)"A LONGUE PORTEE 

654 PRINT SPRINT 

656 PRINT" Donna I'etat de I'etpace dan 

658 PRINT'quadranti luglilnanti 1'ENTERP 

RISE 

660 PRINT'Cqul est au centre de la zone 

662 PRINT :PRINT" Cel etat ill cod* (OU* 

la lorm* 

664 PRINT"ou le chlllrt dti unite* est I 

666 PRINT'd'elo; lei, fttlul des dizoinet, 

66B PRINT'des Slarbases et M lu 1 de* c«n 

tatnes 

670 PRINT"repre«ente le nombre dt KLINGO 

NS. 

672 PRINT ;PRINT=PRINT 

674 PRINTCCCU'CCf H"CCf SEXEnPLE 

876 PRINTCCf'U' CCf'H'CCf 0207 » 2 KLJNGC1 

NS, Sta'bate t 7 

677 PRINTCCfU-'CC*'H"CCf Deloi lai. 

678 GOSUB3080 
720 PAPER4s|NK3 
722 PRINTDHt 

'24 PRINTCCf'T'CCf N"CCf A" ; 

'26 PRINTTAB(28rPHA 

728 PRINTDH* :PRINT 

730 PRINTTABC21)' CONTROLE DES PHASERS 

732 PRINT sPRINTsPRJNT 

734 PRINT" Uou* permet da dtlrulrt le* 

736 PRlNT'cro iseuri de bataille de KL1NG 

ON en 

7 38 PRINT"I«) c -slant d'unt quontltt tu 

740 PRINT'Iltanta d'eneroie pour la i re a 

742 PRINT"londTtr Itur tctan dt lore*. 

'44 PRINT :PRINT 

746 PR1NTCC*' T"CC«"L"CC«'-GN'OUBLIEZ PAS 

74B PRINT 

750 PRINTCC*"T"CC«"H"CC«"FLes KL1NG0NS o 

752 GOSUB3000 

780 PAPER2: INK4 

782 PRINTDH* 

784 PRINTCCr'R'XCfN'TCr E" ; 

706 PR1NTTAB(2B]"T0R 

788 PRINTDH*:PRINT 

790 PRINTTABCZBJ'XONTROLE DES TORPILLES 

792 PRINTTABC26CPH0T0NIQUES 

794 PRINHPRINT 

796 PRINT" La route torpille tat o* I le 



602 PRINT 
804 PRINT 


dttr 
Si 


ez ttri 

B06 PRINT 

De 

808 PRINT 


..„. 


B10 PRINT 
et KLIN-" 
812 PRINT 


It t 
3SHS 



B14 PRINT :PRINT"La I 
916 PRINT"' COM') poi 
818 PRINT'POur uoui 



■ tTi 



820 PRINT'Coptlon 2) 

822 GO5UB3000 

860 PAPER6:INK1 

862 PRINTDH* 

964 PRINTCCt U' CCf'N"CC«' 0" ; 

B66 PRINTTABC26)'SHE 

B68 PRINTDH«:PRINT 

870 PRINTTABC22r CONTROLE DE L'ECRAN 

B72 PRINT:PRINT:PRINT 

874 PRINT" Del.ntt le nombre d'unUti 



882 PRINT"tolala du vaitieau. 
B84 PRINT :PRINI 

8B8 PRINTCC*"U'CC«"L"CC<"8A NOTER 
988 PRINT 



890 PRINTCCt'O' XCt'H'CCf EL'AFFICHAGE ET 

«T ENERGETIOLJE TOTAL 

892 PRINTCCf U'CCt'M'CC* EENGL.OBE ENERGI 

E DES ECRANS. 

894 GDSUB300B 

910 PAP£R0:INK5 

912 PRINTDH* 

914 PRINTCCt N' CC«"B" ; 

916 PRINTTABC2B) , DAri' 

91B PRINTDHt :PRINT 

920 PRINTTABU8)' CONTROLE DES COHPTES-RE 

NOUS 

922 PRINTTABt2?r O'AUARIES 

924 PRINT :PRINT:"RINT 

926 PRINT' Donnt t'alat da raparaton d 



i I- 



- .■■- ■ 



(INT* ■ 





PRINT :PRINT 








932 


PRIN 


P Un .tat de 


r.pa 


ratio 


n nt»t. 


934 


PRIN 


T- md.que que 


• ,„, 


Lai lo 


t .on e*t 


936 


PRIN 


r-prflvlt-oIriM 


I No 


r« dt 


Sarulat 


93B 


PRIN 


T :PRINT 








940 


GOSUB3000 










INK2 










963 


PRIN 


TDH* 








-•_•-• 


PRIN 


TCCfN'CCf'C ; 








9H 


PRINTTAB^BrCOrl 








-. ■■ 


PRIN 


TDH* 








1 -.j 


PRIN 


TTA6C22)"LIBRA1RIE- 


3RD! NAT EU 


973 


PRINT 'PRINT' La L 


br.i 


ne-o 


'« »*t«u 


974 


PRIN 










976 


PR : ■■ 


rcC«"H'CC«'ADP 


ION 


B"CC* 


EENREGl 


STREP1ENT 


GALACTIOUE 








97B 


PRIN 


TCM'H'CCt'E'SPCO) 


cunuLE 


960 


PftlN 


TSPCC9rCette 


ptlo 


a mon 


tre I'en 



9B2 PRINTSPCC9J"tretner>t de« retultalt de 

984 PRINTSPC(3)-'toutei lei exploration* 

9B6 PRINTSPCC9)'pa**ee*. 

9BB PRINTCC*"M"CC*"A0PTION 1 "CC*"£RAPPOR 

T DE SITUATION 

998 PRINTSPCO)' Cette option donn* le* K 

l_IN- 

992 PRINTSPCt9J"G0NS, les Stordate* tl 1 

994 PRINTSPCC93"Starba*e* retlant en jbl 

996 PRINTCCt"H"CC*"AOPTION 2"CC« ''E DONNE E 
S POUR TORPILLES 

998 PRINTCC«-H" CC*"E"SPCt9 3 "PHOTON] OUES 
1000 PRINTSPCtSI'Donnt d.rectlon* et du 



101 



RINTSPC[9)"de ('ENTERPRISE i 
ITSPC[9]"KLING0NS du quadi 



1004 PR If 
1086 PRIc 
1008 GOSU63000 

1010 PRINTCC*"H"CC*"A0PTION 3"CC*"ED0NNE 
ES DE NAUIGATION UERS 

1812 PRINTCC*'H'-CC*"E"SPCC9r LES STARBPS 
ES 

1014 PRINTSPCO] "Donne le* direction* el 
di»- 
1016 PRINTSPCt9]"tanct< de* Starbases du 
1018 PRINTSPCOJ'quadranl. 

1020 PRINTCCf H'CCt'AOPTION 4"CC*"ECALCU 
LS OE DIRECTION / 

1022 PRINTCCf H'CC*"E"SPC(9)"D I STANCE 
1024 PRINTSPC(9)"Uoua parmal d'antrer le 

1026 PRINTSPC(9)"ordonnet> necettairei a 

1028 PRINTSPCOr'ealcul* de dlractionxdl 
*ttmce"i 

1030 PRINTCC*"H' CC*"AOPTION 5"CC*"ECARTE 
RENSEIGNEE DE LA 

1032 PRINTCC*"H"CC«"E"SPC[9 3"GALAXIE 
1034 PRINTSPCC9)"AI(icht tat nomt da* ** 

1836 PRINTSPCC9)"prPAPERncipalet rtalon* 

1038 PRINTSPCO)". 



■tnt i 



1040 PRINTSPCC9)".leu.":PRINT:PR!NT 

1042 GOSUB3000 

2000 INK6 

2802 PRINT:PR]NT:PRINT:PRINT:PRINT 

2004 PRINTCCfL' CCf'A ATTENTION !!!.. 

2006 PING 

2808 PRINT :PRINT 

2010 PRINT" 



1*9* 



2812 UA1T10:PING 

2814 GOSU83000 

2016 PRINT :PR INT :PRINT : PRINT :PRlNT 

2010 ZAP 

2820 PRINT'JE CHARGE LE PROGRAnHE DE JEU 

2022 PRINT SPRINT" 

2024 CLOAD'STARTREK B' ,S 

2999 END 

3000 PRINT:PRINTTABC20J'SPACE BAR TO CON 
TINUE" 

3018 IFKETtO' THEN3010 
3040 CLS:RETURN 

3050 REM 

3060 REn : 

3870 REM I ' Pitrre GASQUT 

3880 REH : 

3090 REn : ORIC -1 

3188 REn ; 

3110 REn I SEPTEMBRE 1983 

3120 REn : 

3130 REM 



RELEASE :PAPER4 :JNKI 

2 H!RES:PAPER4:[NK! 

3 CURSET125,30,3:CIRCLE5, 1 : CURSE T 176, 27, 
3:CIRCLE7,1 

4 CURSETI30,70,3:CIRCLE10,1 

5 CURSET70,60,3:GOSUB10:CURSET76,60,3:GO 
SUB10:CURS£TB2,60,3:GOSUBI0 

6 CURSET87,59,3:GOSU810XURSET92,59,3:GO 
SUB 10 

7 CURSEri43,64,3:DRALJ2,4, 1 :DRAU0,2, I ;ORA 
U23,-I4,l :0RAU-|,-4, 1 ;ORAU- 

23>12, I 

8 G0T0I1 

10 DRPU3.0, 1 :ORAU0,2, 1 :DRAW-3,0, 1 :QRAU0, 
-2, I :RETURN 

1 I CL!RSET125,25,3 
12 FORI»0TO5 

!3 READX,T:ORAUX,T, 1 :N£XT] 

14 CURSET1B6.32.3 

15 FORI*0TO5 

16 READX,T:DRPUX,r, I SNEXT 



17 CURSETI78.47.3 
IB FORI-0TO3 

20 READX.TiDRAWX.T, 1 iNEXT 

21 CLJRSET129,6B,3:rjRAU44,-15, 1 

22 CURSET155,4?,3:0RAU3,3,I :CURSET 158, 46 
,3:DRAU3,3, 1 

23 CURSET164.48.3 
20 FORI=0TO!2 

25 READX,T;ORAUX,T, 1 ;n£XT 

26 CURSETI12,33,3:DRAU-4,2,1 :QRAU-?,6,1 ■ 
DRAU-1,2, 1 

27 CURSET94.37.3 
2B FOR1=0TO14 

29 READX,Y:DRAUX,', | :N£XT 

30 CURSET4?,52,3 

31 FORI-0TO7 

32 REAOX,T ;ORAWX,T, 1 .-NEXT 

33 CURSET126,35,3:0RAU43,-8, 1 

34 CURSET149,35,3:0RAlJ-2,-2,l :CURS£T144, 
33,3 

35 DRAUI2.2, 1 

36 CURSET14I.34, I 

37 CURS£T30,120,3iFlLL3,l,12 

38 CURSET40, 120,3iS-ILL8, 1,6 

39 CURSET58, ]20,3:S*='L'u£S ENTERPRISE - 
- NCC 170 J" 

40 FORI-ITOLENtStl 

41 CHARASCtniOttS*. 1,1)1,0.! :CuRnOU6,0, 3 

42 NEXT 

43 CURSET129.55, 3sfJRAU5,4, 1 :CURSET 1 36, 53 
.3:DRAU4,2, I 

44 CURSET140,52,3:ORAU4,3, I 

45 PRINT'JE CHARGE LA SUITE Ou PROGRAMME 

46 CLOAD'STARTREK J",S 

10000 DATA92,-10,2,2,l,2,0 1 3,-2,2,-41, 10 

10010 DATA- 15, 16,0,3,6,-2, 17, -19, -5, 1 , -1 

8,28 

10020 DATA2,2,8,S,-39,28, -10,-2 

10030 DAT A- 3, -3, 4,-7,-6,-2,-6,-] ,-36,0,- 

2.-2,-12,-1,-3,1 

10840 OAT A-9, 6,-1 ,2, 10,0, 19, -4,-2,-3 

10050 DATA-ll, 1,-8,2,-12,3,-13,5,-7,3 

10060 DATA-3,3,0,2, 1,4, 1 , l,B,3 

10070 DATA35.0, 15,-2,30,-7,25,-8,6,-2 

1008B OATA-2, 1,8,2,5,2,9,1,24,-1, 19,-2,2 

',-6 

10090 0ATA36,-11 



1 Pierre GASOUT 

ORIC - 1 

SEPTEMBRE 19B3 



• REn 



a REn : : 

9 REn 

10 PAPER4 ;INK3 

20 DH*=CHR*(41:CC*=CHR*C27) 

30 PRINTCHR*C17)DH*:PR]NT SPRINT :BRIr 

INT SPRINT 

49 PRINT sPRlNTCCf T' CCf N" [ 

50 PRINTTABC26)"STARJEU" 
60 PRINTOHt 

270 2*-" 

330 □1HG(8,8),C(9,2),KC3,3),2[8,8) 
370 T-lNT(RNOd J*20r28)*18B : T0-T 
124 T9-25*INT(RNDM )*1B1 sOB-BsE'300! 



-ie:» 



1 :S9-2B0:S=B:B9=0!K9=0i> 



470 DEFFNDtD)=SQR[lK[I,l)-Sl)-2tCKi:l,2)- 

523^2) 

475 D£FFNR[R)= INT CRND[R)*7. 9B» 1.81) 

490 Q]=FNRCl).-Q2=FNRtn sSl=FNRCl) sS2=FNR 

CI) 

530 FORI = nO9s-CCI,l)=0sctI,2)=0:NEXT 

540 C£2,l)=-i:C(3, l)=-lsCC4,])=-I :CC4,2) 

=-] :Ct5,21=-l:C(6,2)=-] 

600 CCi,2)-lsCC2,2)-l:CC6,n = lsCt7,l)-j: 

CCB,l)-liCt8,2]"l.C(9,2)-l 

670 F0RJ = ]TQS:DU)=8:nEXT 

710 Al«="NAUSRSLRSPHAT0RSHEDAnCOnXXX" 

620 FDRI = lTO8:F'ORJ=lTOe:K3=0:2tl,J]»a!Rl 

^RNDC 1 ) 

650 IFR] > . 98THENK3=3 :K9=K9 + 3 S&0TO988 

860 IFR1>.95TH£NK3=2:K9=K9*2:GOTO980 

670 IFRl>.8THENK3=lBK9^K9rl 

9B0 B3=0:1FRNDC1 3> . 95THENB3= 1 sB9=B9rl 

1048 G[.',J)=K3*]00+B3*10rFNRCl) sNEXTJ, I : 

IFK9>T9rMENT9=K9»l 

1108 IFt9O0THEN120B 

1158 IF3(Ol,Q2)<200THENG[Ql,O2) = r,(Ol,Q2J 

-10BSK9=K9H 

1160 B9^1 :G(Ol,O2)=GCQl,Q2]»l0sQl=FNRtl) 

s(32=FNR[ 1) 

1200 K7=K9:!FB90]THENX*="s" 

1230 CLSsPAPER0sINK2spRINTOH* 

1232 PRINTCCf J' CCf'A"; 

1234 PRINTTABC23) , U01CI UOS ORDR£S":PRIN 

TDH* 

1236 PRINTsPRINI 

1230 PRINT" Detru:*ez lai "K9"va I tieaux 

'1240 PRINT' 9 uerre KLINGON qui tnt envahi 
i| Q.G. 
1242 PRINT'dt la Federal .on a la Stardal 

1246 PR]NTT0>T9"| cm vou* donne T9"jo 

1248 PRINT' I i- ;X0«B9;Starba*e , *;X*;' dan 

1258 PRINT' oalax.e pour rauitailler uolr 

1252 PRINT' teau 

1288 PRINT:PRINT:PR]NT SPRINT 

1298 PRINTCCf L'CCfCETES-UOUS PRE! A PR 

ENDRE 

1292 PRINTCCfL' CCf Cl_E COnMANDEnENT ?■' ; 

1300 GETISfiCLSMFlStO-'O-THENlJaB 

1320 Z4=Q] :e5=-O2:K3=0:a3=0sS3=0sG5=0sD4 = 

.5*RNDC1 ) :ZCQ1,Q2)=GC01 ,02) 

1390 IFQ1(1ORQ1>8ORO2<1ORO2>8THEN1600 

1430 GOSUB9030 SPRINT sIFTBOTTHEN 1490 

1468 PRINT" Uotre nltnon commence awtc 

1462 PRlNT'\.o;sBeau dans 14 quadrant sal 



"CCf'A" iG2*;CC*' B' . 



146B PRINT"! 

SGOTO1500 

1490 PRINT" vous entrez dan* le quadran 

1492 PRINTCCf H 1 CCf A' ;G2* 

1(508 PRINT :<3-|NTt 6101,02)*. 01 J iB3»INTt 6 

roi,Q2)*. 1 )-10*K3 

I 540 S3=G( Ql , 02)- 100**3- 10*B3 s Jf K3-0THEN 

1590 

suite page 13 



MORTELLE RANDONNEE 



Lobjectif de la randonnee etait simple : en passant par des 
pistes de ski de fond sans gros probleme, atteindre le cha- 
let refuge pour y passer la nuit. Pourquoi a-t-il fallu que ces 
etrangers vous attaquent avec leur luge et leur motonei- 
ge ? Pourquoi la montagne s'est-elle mise a gronder et a 
ouvrirdes ravins et descrevasses sous vos pieds, la meteo 
etait pourtant bonne ! 

Gilles GRAPINET 



Touche alpha-lock levee. Le temps est minute. Touteslesquatre traver- 
sees, vous avez droit a un skieur supplemental re et a un bonus de 
10.000 points. Vous pouvez traverser I'ecran sur les telepheriques mais s^ V 
pas sur les telesieges. X? 




CALL HCHAR! 



OO COLL CLEAR :: CALL SCREENI16) 

10 GOSUB 1320 M GOSUB 1600 :: CALL SCREENM2I 

20 CALL CHAR(97, "AA55AA55AA35AA55") :: CALL HCHAR I I , I , 97,32) I 

,64)11 CALL HCHAR123, 1,97,641 :: CALL COLOR19,5,l> 

30 RESTORE 140 :: FOR 1=1 TO 4 :; READ !i CALL HCHAR (2.0, 39) : ; CALL HCHAR I 

1,60) l| NEXT 1 

40 DATA 3,11, 19,27 

50 CALL CHAFM88, "") :: CALL COLOR (8, 1 , 16) : : CALL HCHAR d 3, 1 , SB, 320) 

60 CALL CHARI37, "FFFFFFFFFFFFFFFF" > : : CALL COLOR ( 1 , 13, 1 ): : CALL HCHAR (3, 1,3; 

70 CALL MAGNIFY (3) 

BO CALL CHAft(40, "OOOOOOOOOOOOFFFF") :: 
,32):: CALL C0L0RI2, 2, 13) 
190 CALL CHARC41, " OOO 00 OOOFF 00000000 " 1 



CALL HCHAR(4, I 



CALL HCHAR (6, 1 



CALL HCHARI3, 1,41,32) ; 



CALL HCHAR ( 



2O0 \ 



IE-5 t 
G— 17 



FD-6 ! 



VG— 6 I 



VDR'20 : 



VGR--20 : 



VBD- 10 : 



VBB— 10 I 



VTD-17 



TV 



-99/4 ^ 



NEXT 



GOTO 330 



210 GOSUB 930 :: DISPLAY AT (24, 16) : "SKIEUR- 

220 CALL 5PHITE(M1, 124, B, 17B, 128, 0,0) 

330 REM programme principal 

240 CALL M0TI0N(M1,0,0> 

250 CALL POSITI0NCM1.YY.XX):: IF YY<96 THEN 320 

260 TEMP-TEHPM :: CALL JOYSTll.X.Y) 

270 IF X*Y-0 THEN 300 

280 CALL SOLINDIIO, 1000,5) 

290 CALL M0TI0N(M1,-15«Y, 15«X) 

3O0 CALL COINC(ALL.CO) 

310 IF COO-1 THEN 240 ELSE 830 

320 FOR 1-500 TO 1500 STEP 10O :: CALL SOUND! 100, 

330 CALL MOTI0N(Ml,0,O) :: CALL LOCATE (Ml ,81 , 128) 

340 CALL Mi i ::■,»:. ,-i- 

350 TEMP=TEMP*1 :: CALL JQYST(1,X,Y) 

360 IF VOO THEN *00 

370 IF X-O THEN 340 

3B0 CALL M0TI0N(M1,0, 15«X) 

390 CALL SOUND (10, 1OO0.3):: GOTO 340 

400 CALL POSITION(Mi,VYY,XXX): : CALL LOCATE (MI , 66, XXX ): : CALL SOUND (10, 1000,5) 

410 CALL COINC(ALL.CO) 

420 IF CO— 1 THEN 430 ELSE BOO 

430 CALL M0TIONIM1.0.VBD) 

440 TEMP«TEMP*1 :: CALL JOYST(l.X.Y) 

430 IF VOO THEN 470 

460 CALL C01NC(ALL,CO) : : IF C0--1 THEN 440 ELSE BOO 

470 CALL POSITIONIMl.YYY.XXXI I : CALL LOCATE (Ml , 49, XXX) 

4B0 CALL SOUND CIO, 1000,5) 

490 GALL CQINCIALL.CDl 

5O0 IF COO-1 THEN BOO 

310 CALL HOTI0N(MI,0,VTG>:: CALL POSITION (• I B, Y18, X IB) : : CALL LOCATE ( Nl , VI8, X 16) 

520 TEMP-TEMPtl :: CALL JOYSTd.X.Y) 

330 IF X*Y-0 THEN 320 

340 CALL POSITION(«l, VYY, XXX): : CALL LOCATE (Ml , 32, XXX ) 

350 CALL SOUNDCIO. 1000,5) 

360 CALL COINC(ALL.CO) 

370 IF COO-1 THEN BOO 

380 CALL NOTION(M1,0,VTD):: CALL POSITION (41 7. Yl 7, X 1 7) : I CALL LOCATE (Ml , Y17, X 17) 

390 TEMP-TENPH :: CALL JOYSTd.X.Y) 

600 IF X*Y-0 THEN 390 

610 CALL POSITION(Ml,VYY,XXX): : CALL LOCATE (Ml , 16. XXX I t : CALL SOUND < 10, 1000, 5) 

620 CALL CDINC(ALL.CO) 

630 IF COO-1 THEN BOO 

640 CALL MOTIQN(Ml,0,VBG> 

630 TEMP-TEMP+1 :: CALL JOYSTd.X.Y) 

660 IF X*YO0 THEN 670 ELSE CALL COINC (ALL, CO) : I IF COO-1 THEN 800 ELSE 650 

670 CALL P0S1TI0N!M1,YYY,XXX>: : CALL LOCATE (HI , 9, XXX ) 

680 CALL SOUND IIO, 1000,5) 

690 X=INT(XXX/B)*1 

7O0 CALL GCHAR(2,X,T) 

710 IF TOS9 AND TOM THEN BOO 

720 GOSUB 1230 

730 GOSUB 1450 :: TEMP=0 :: GG-GG+1 :: IF GS<4 THEN 740 ELSE SCORE=SCORE- 100O0 

740 DISPLAY AT 1 1 . 221 BEEP: SCORE :: IF GG<4 THEN 220 ELSE DISPLAY AT 17, 1 1 ) : "BRAVO' 

v.V.V.V.V.V.HV.y.XX - /." : : GOSUB 1510 

750 FOR U=l TO 200 :: NEXT U :s DISPLAY AT (7, 1 ) : 'XXXXXXXKXXXXXXXXXXXXXtXXXXXX' 

760 HB*0 :: VIE-VIE+1 :: VD-VD*3 :: VG-VG-3 :: VDR=VDR*3 :: VGR=VGR-5 :: VBD-VBD 

+3 :: VBG'VBG-3 :: VTD=VTD*5 :: VTG-VTG-5 

770 GOSUB 1120 

7BO GOSUB 1200 :: DISPLAY AT ( 1 ,22) iSCORE :: DISPLAY AT (24, 16) : "SK1EUR=" i VIE :: G 

OTO 220 

790 REM mart *ki«Ur 

BOO CALL M0TION(M1.0,0>: : CALL POSIT ION (Ml , YY, XX > : : CALL DELSPRITE (#1 ) 

BIO FOR I-20O0 TO 110 STEP -50 :: CALL SOUND (5, I , 5) : : NEXT I 

B20 GOTO B40 

B30 CALL S0UND(2O9,-5,5) :: CALL MOT ION (Ml ,0, O) : : CALL POSH 

DELSPRITE(MI):: CALL SPRITE (M2B, 10B, B, YY, XX, -5, O) 

B40 CALL SPR1TEIM28, 108,8, YY, XX, -3,0) 

B50 CALL PDS1TIDN(M2B.H2,L2) :: IF H2>B THEN B50 

B60 CALL DELSPRITEIM2B) 

B70 CALL SPRITE(M1. I24.B, 17B, 12B,0,0) 

880 VIE=VIE-I :: IF VIE^O THEN 15O0 



CALL 



B9t> TEMP- 


:: DI 


SPLAY A 


r 124. 16 


: *8KIEUR»"tVIE 


900 GOTO 


240 










910 REM m 




Dlace 








920 FDR 1 












930 CALL 


SPRITE( 


U , 1 29 , 


0, 155. 


,o, 




940 FOR ! 


[-1 TO 


.075 : I 


NEXT I 






930 NEXT 


[ 








■L 


960 FOR 1 


-5 TO 7 








ln 


970 CALL 


SPRITE! 


H, 112, 


. 135,248,0 


^ m 


VOO FOR 1 


1-1 TO 


073 :: 


NEXT I 






990 NEXT 












I OOO CALL 


SPRITE 


MB, 136 


12,113 




VBR) 


1010 CALL 


SPRITE 


:M9, 132 


12,97.248,0, VDRI 


1020 FOR 


[-10 TC 


15 








1030 IF 1 


'12 THEN 1030 








1040 CALL 


SPRITE 


•I, 120 


7,63,1 


O.VBDl : : GOTO 1 


1050 CALL 


SPR I TE 


MI, 140 


7, 16,248,0 


VBG) 


1060 FOR 


;i-i tc 


380 : : 


NEXT I 






1070 NEXT 


I 










1080 CALL 


SPRITE 








1090 CALL 


SPRITE 


#17, 116, 14,32 


t ,o 


VTD) L 


110O RETURN 








Y 



REM acceleration 
1120 CALL M0TI0N!M2,0,VD,M3,0,VD,M4,0,VD) 



b*s\c 



J 1U6U _ 



CALL M0T10N!M5,0,VG,M6,0,VG,M7, 

CALL li0TI0N(M8,0,VBR,M9,0.VDR) 

1150 CALL MOTION!M10,0,VBD,M1 1.0, VBD, Ml 2, 0, VBD) 

1160 CALL H0TI0N(MI3,0,VBG,M14.0,V&G,M15,0,VBG> 

1170 CALL MOT!ON(MIB,0,VTG,M17,O,VTD> 

11 BO RETURN 

1190 REM reinstallation chalets 

120O RESTORE 1220 :: FOR 1-1 TO 4 

1210 READ 00 :: CALL HCHAR 12, 00,39) : : CALL HCHAR 12, QD+1 , 60) : : NEXT I 

1270 DATA 3, 11, 19,27 

1230 RETURN 

1240 REM test chalets 

1250 IF X-4 THEN X-3 

1260 IF X-12 THEN X-ll 

1270 IF X=20 THEN X-19 

1280 IF X=2B THEN X-27 

1290 CALL HCHARI2.X, 10O): i CALL HCHAR (2. X+l , 101 > 

1300 RETURN 

1310 REM caracteres 

1320 CALL CHAR(128, "O0O0O0O00101O3070E1C1F7F2060FF00G0O0O000B0B000FB04 12F6E286CC 
FBOO") 

1330 CALL CHARC132, "O0OOO0O0000COClBlFDBDBFCFF7EFE54a000O000000O0O0000C0202OF008 

1340 CALL CHARC124, "000003030F17171F132742B203O20409O0000000C4Ba90A0C0ABC8D0604O 

BOOO" ) 

1350 CALL CHAR (120, "00O0O0O01 A2CO2O30202030303OOO00000000000000O0O800000E0E0E000 

OOOO" ) 

1360 CALL CHAR (101 

1370 CALL CHARd tl 

13B0 CALL CHARd 12. "00000000010I001F204B6F4761331F00000000008080COE07CI3BF8FE0406 

FFOO") 

1390 CALL CHAR(136, "O0O0O0O00O0OO0000003O4040F10! 

7F2A" ) 

1400 CALL CHAR(140, "OOO0OOOOOOOOOOOOOOOOO0OOOO0OOOOOOOO0OO0OOFODOB3a0a0BFBF8F80O 

0000" ) 

1410 CALL CHARd OB, "O00U2393D3F3F38332327B7BF5F231000804B9CBCFCFCDCCCC4E4E1F2FC 

CBIO") 

1420 CALL CHAR(39,"000103070D070606 ,, ) : : CALL CHAR (60, "008OC0E0B0E06060" > 

I430 RETURN 

1440 REM polnts-chrono 

1450 DD-13000-!TE«P*60) :: IF DD'.O THEN DD-0 

1460 DISPLAY AT (7. 3) : DD t "POINTS' :: FOR 1-1 TO 2O0 :: NEXT I :: DISPLAY AT(7,2) 






18FB1B1B3FFF3E 



14 



:*dd 



.■/.'■■ y. v. •'.*/.'/. 7. v.V. '■: v. v. :>. ■/.•/.•/.V.V.V." : : RETURN 



PARTIE TERM1NEE! ' 



FOR 1-1 TO 3000 I 



1480 DISPLAY ATI" 
1490 REM fin 
1300 DISPLAY ATI1 
END 
131" REM mil Que 
I52'j RESTORE 1570 
1530 FOR 1-1 TO 22 
1340 READ FF 

1550 CALL SDUND'300.FF,3) 
1360 NEXT I 

1570 DATA 7B4,387,9BS,7B4,5B7,986,8B0,784,BB0,9BS. 1 1 73, 988, 7B4. • 
15B0 DATA 784,387,988, 1175, 1047, 9B8,8B0 
1590 RETURN 
1600 REM 

1610 REM PRESENTATION 
1620 REM 
1630 CALL CLEAR 
1640 CALL C0L0RI2, 10, 1) 
1650 DISPLAY AT(1,: 
1660 DISPLAY AT (2,5: 
1670 DISPLAY AT(3,3: 
16B0 DISPLAY AT(4,3 
1690 DISPLAY AT(5.5 
1700 DISPLAY AT17, 1 
1710 DISPLAY AT(9,1 



ET" 
1720 



1730 DISPLA' 



' AT(12, 



CHALETS, 

1T50 DISPLAY ATC21, 

1760 DISPLAY ATI23, 

1770 RESTORE 1370 

17B0 DISPLAY AT(24, 

1785 FDR 1-1 TD 22 

17B6 READ FF 

1790 CALL KEYU.R.S 

1795 CALL SOUND (200 

1796 NEXT I 

1797 IF MUS=1 THEN 

1798 GOTO 1770 

1800 CALL CLEAR 

1810 RETURN ■■ 



i MORTELLE RANDONNEE 



' EN EV 



rANT LUGES ET 



:"VOUS DEVEZ REJOINDRE VOTRE CHALET 
DTD-NEIGE PUIS EN SAUTANT ADROITEMENT DE TELESIEGES" 

"EN TELEPHERIDUES. " :: DISPLAY ATdl 
VOUS GAGNEZ UN SKIEUR MAIS LE JEU S'ACCELERE.' 

"ATTENTION, Pt_U9-V0USALLEZ V1TE.PLUS VOUS MARQUE I" 
"AU DEBUT VOUS AVEZ 5 SKIEURS" 



"TOUS LES OUATRES 



"PRESSEZ LE BOUTDN DE TIR'' 



: THEN 1795 ELSE 1-22 : 



II manquaitquelques caracteres a 
la ligne 460 du programme 
OTHELLO. N° 10. 



160 DIH HflT(B,8!,IHCLlB),RflIL(B!,IIICC(8],«flIC(BI,JIl3),NBPI0Nl3),VL!fl,B),PS!8,B) 



SLALOM 



Pilotez votre bolide a travers les portes du slalom ! Un petit 
detail : vous n'avez ni volant, ni accelerateur, ni frein. et il 
vous faut donner des informations a votre ordinateur de 
bord pour vous deplacer. 

Christophe CHANTRAINE 




640 


GOSUB 


2230 


650 


PRINT 
PFlINT 


" VOUS 


670 


PRINT 


"INST 


680 


PRINT 




690 


PRINT 


"PLUS 



50 GOSUB 2330 
NT 



:■■)■ •■ ■. 

250 PR 

2br, PR 

270 PR 



L CLEAR 

iH-2 TO 14 
L COLOR!GH, 11,2) 
T GH 



260 GOSUB 2230 



i VOUS IREZ LOIN, PLUS LE" 
) PRINT 
) PRINT "TEMPS ACCORDE DIM1NUERA." 

> GOSUB 2230 

) PRINT "DEGRE DE DIFF ICULTE"" 

) PRINT 

) PRINT "DE IsPISTE SECHE A 6:PISTE" 

) PRINT 

1 PRINT "TRES.TRES GLISSANTE-" 

> PRINT 

) INPUT " (RAPPEL:D-10«DEGRE DE DIF. I ' 

> FOR XC-2 TO 14 

i CALL C0L0R(XC,2,7) 
) NEXT XC 



ECRAN.VOUS AVEZ: " 

NT "-EN HAUT, VOTRE VOITURE ET" 

NT "LES PORTES DUE VOUS DE-" 

NT 

NT "VRE2 FRANCHIft SANS MAL" 

NT "-EN BAS.UN AFFICHAGE DU" 

NT "TYPE NOXOY AVEC:'* 



380 PR 
390 PR 

400 GOSUB 33-Ci 



N-NUMERD DE LA PORTE'' 
,X=VALEUP DU FANION DE GAU-" 
CHE.COMPRIR ENTRE ET D" 
.WALEUR DU FANION DE DRO 1 - " 
NT "TE.COMPRIS ENTRE ET D" 

DEGRE DE DIFFICULTE)" 
,IL S'AGIT D'UNE PORTE" 
A CONTOURNER. INTRODUISER" 
NT "ALORS D-X" 



460 PRINT 




470 PRINT 


"(EXEMPLE: AFFICHAGE: 10707" 


4B0 PRINT 




490 PRINT 


"11-10 REPONSE 3 CAR 10-7-3" 


300 GOSUB 


2230 


510 PFlINT 


"SI X' Y.C'EST UNE PORTE OUE 


520 PRINT 




530 PRINT 


"VOUS DEVEZ FRANCHIR EN SON" 


340 PRINT 




550 PRINT 


"MILIEU. INTRODUISEZ ALORS" 


360 PRINT 




370 PRINT 


"LA ItOYENNE ARITHMETIOUE" 


seo print 




590 PRINT 


"DE X ET Y ((X+Yl/2!" 


60O PRINT 




610 PRINT 


" 1 EXEMPLE: AFFICHAGE: 1O602" 


620 PRINT 




630 PRINT 


"REPONSE 4, CAR !6+2)/2-4" 



CALL 


CLEAR 














[ ."il I 


CHAR! 


?: 


"0425BFEFEI 




CALL 


COLOR 


i; 


,5,7) 








CALL 


COLOR 




13,11) 








CALt 


COLOR 


1 1 


> 12, 12) 








CALL 


SCREEN (7 










FOR ER-10 




2B STEP 


6 








HCHAR 


•i, 


:R,42) 








CALL 


HCHAR 




:R,42) 








NEXT 


ER 












CALL 


HCHAR 


7, 


SI , 


7K> 








CALL 


MCHAR 




> L7 


116 


14) 






■ At i 






. 17 


116 


14) 






CALL 


VCHAR 














CALL 


VCHAR 














CALL 




■ 


16 


48) 
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LOGO: UN LANGAGE DYNAMIQUE 



LOGO est un langage de pro- 
grammation comme BASIC ou 
FORTRAN 

LOGO est un langage meconnu. 
dont les adeptes touchent tou- 
jours, de pres ou de loin, au do- 
maine de ('education etdel'ensei 
gnement ll est actuellement dis- 
ponible sur quelques ordinateurs 
(APPLE. TEXAS). Les exemples 
donnes dans cette sene d'articles 
fonctionnent sous EDI-LOGO, 
d'Ediciel sur APPLE II. lis peuvent 
etre facilement adaptes pour 
d'autres versions de LOGO, ainsi 
que pour le mint Logo sur APPLE 
(ecrit en BASIC) presente dans le 
numero 13 

Cette sene d'articles n'est ni une 
analyse exhaustive des langages 
LOGO, ni un cours de program- 
mations en LOGO, mais plutot 
une presentation des points ongi- 
naux de la programmation en 
LOGO 

Parmi les points interessants. 
nous avons retenu 

- Le graphisme tortue 

- Lextensibilitede LOGO par pro- 
cedures 

- La recursivite 

LOGO tut le premier langage dis- 
posant du graphisme tortue Le 



concept repris par la suite par 
PASCAL, puis par d'autres langa- 
ges graphiques ou non. permet la 
manipulation d'une tortue sym- 
bolique. La tortue se deplace 
dans un univers (I'ecran) en obeis- 
sant aux ordres qui lui sont don- 
nes a partir du clavier Lors de ses 
deplacements. elle peut ou non 
laisser la trace de son passage, au 
moyen d'une plume qui est levee 
ou posee. On retrouve le vocabu- 
laire des tables tracantes : poser 
le stylo, tracer, lever le stylo, se 
deplacer. 

Initialement, la tortue etait un ro- 
bot, muni d'un traceur, qui evo- 
luait a meme le sol et dessinait sur 
de grandes feuilles de papier 

Developpee dans un but pedago- 
gique et educatif. cette approche 
de la logique permet a I'entant de 
projeter son propre corps dans un 
espace plan, en s'identifiant a la 
tortue Lutilisationde la tortue as- 
sure une approche simple, agrea- 
ble et creative du monde exte- 
neur. en evitant I'ecueil des syste- 
mes de coordonnees cartesien- 
nes ou autres 

Tres souple pour les petits, la tor- 
tue est la base denombreuses ex- 
perimentations en classe mater- 
nelle La tortue a plume est aussi 



efficace avec les enfants qu'avec 
les plus grands j elle constitue un 
moyen efficace pour initier au 
monde de la programmation. 

LOGO est un langage souple et 
particulierement puissant Les 
langages de programmation du 
type BASIC, FORTRAN et autres 
COBOL demandant a lutilisateur 
un apprentissage d'une part d'un 
vocabulaire de base, d'autre part, 
d'un mode de raisonnement afin 
de pouvoir resoudre un certain 
nombre de problemes a I'aide de 
I'ordinateur 

Bien programmer en BASIC, c'est 
surtout bien connaitre les timites 
du BASIC, ainsi que ses contrain- 



- Gestion d'objet (Premier, Der- 
nier,...) 

- Operations elementaires (+, -. 
*.-.) 

- Fonctions elementaires (Cos, 
Sin,...). 

Quelques exemples bases sur la 
manipulation de la tortue permet - 
tant de visualiser le mecanisme 
LOGO 

La tortue possede une position et 
uncap (direction). 
La position est I'endroit ou elle se 
trouve sur la page d'ecran, le cap 
la direction vers laquelle elle se di- 
nge En faisant varier cap et direc- 
tion, et en posant ou levant la plu- 
me, ii est possible de construire 
n'importe quel dessin. 
Par exemple. pour faire avancer la 
tortue. ilsuffitde lui indiquerla dis- 
tance quelle doit parcouhr (nom- 
bre de pas) apres le PRIMITIF 
AVANCE 



Avec LOGO, il en va tout autre- 
ment 

LOGO est un langage de proce- 
dures Les procedures sont defi- 
nies par le programmeur et cons- 
truites a partir des commandes AVANCE 10 
de base (primitifs). Les primitifs 
constituent le vocabulaire de ba- de la meme facon ; 
se de LOGO et agissent sur diffe- 
rents domaines RECULE 30 



- Graphisme (avance, droite, ) 

- Definition d'objet (Pour. Lisle. 
Mot, ) 

- Contrdle d'information (TESTE, 
SIALORS.SINON,...) 



La tortue laisse ou non une trace 
de surpassage si la plume est en 
position basse ou haute : les 
primitifs LEVE PLUME et POSE 
PLUME remplissent les deux 



fonctions 

Le contrdle de la direction de la 
tortue est assure par les primitifs 
DROITE et GAUCHE, qui. suivis 
d'un nombre indiquant Tangle, 
font pivoter la tortue. L'amplitude 
est relative a la demiere direction 
(DROITE 10 DROITE lOest equiva- 
lent a DROITE 20) 

Exemple : 

Dessin d'un rectangle de lon- 
gueur 30 pas et de largeur 20 pas 
AVANCE 20 
DROITE 90 
AVANCE 30 
DROITE 90 
AVANCE 20 
DROITE 90 
AVANCE 30 

Jusque la. LOGO ne semble pas 
se distinguer d'autres langages 
en BASIC les instructions HPLOT. 
LINE, et autres DRAWfournissent 
rapidement le resultat desire 
LOGO possede pourtant un avan- 
tage remarquable : vous pouvez 
decider que le dessin du rectan- 
gle de lexemple precedent de- 
vienne un "pnmitif" de LOGO, 
c'est-a-dire qu'en tapant "Rec- 
tangle" vous obtenez le rectan- 
gle ; de la meme facon qu'en ta- 
pant "AVANCE" vous faites avan- 
cer la tortue 



Ceci est realise en definissant la 
suite destructions comme etant 
une Procedure. 
Exemple : POUR RECTANGLE : 

AVANCE 20 

DROITE 90 

AVANCE 30 

DROITE 90 

AVANCE 20 

DROITE 90 

AVANCE 30 

FIN 

Rectangle est maintenant analo- 
gue a un mot reserve de LOGO 
Ce systeme facilite la realisation 
de programmes structures et se 
prete remarquablement bien a 
['application de methode de pro- 
grammation (descendante. .) 

La construction dun programme 
par morceaux afin de reproduce 
les difftcultes (pnncipe cher a 
DESCARTES) devient ici jeu d en- 
fant. 

Ne nous y trompons pas, ce qui 
fait de LOGO un langage de pro- 
grammation aussi simple (et aussi 
deroutant pour qui a longtemps 
pratique des langages plus classi- 
ques) c'est la liberie laissee au 
programmeur dans lelaboration 
de son programme 



Suite page 10 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX ! 



(EUXet PROGRAMMES 
pour 
I'ordinateur familial 
TEXAS INSTRUMENT 




programmes en Ti basic pour ~Ti 99/4A" 

INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originaux et passion- 
nants avec couleurs, graphismeset sons : Jeux de mouvement (Bowling, Bataille 
de I'espace, Labyrinthe. etc.). Jeux de reflexion : Dames, Pendu. Awari, Tour de 
Hanoi. Architecte, etc.) Jeux desociete (421. Goldie.Cochon. Mastermyster.Chif - 
tres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes. etc.). Assis- 
tance (Tierce. Impots. Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR. Arrondi, Alignement. HCHAR multiples, etc. 
100 pages Formal 21 x 29,7 155,00 francs francais. Disponible 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe 
Roulette, Casse-tete. Puzzle, Echecs. Tachitoscope, Kim. Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi. des programmes educatifs : Arithmetique. Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc 
100 pages Format 21 x 29,7. 155.00 francs francais. Disponible 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale. course de 
voitures. etc.), des jeux de societe (Theme astral, Drapeaux. Poker, Harmonium. 
Calculettescientifique.Ardoisemagique etc.). des utilitaires pour creer des lutins, 
fusionner des caracteres. dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande Vitesse d execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables. a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 1 95,00 francs 
francais Disponible en francais et en anglais. 
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JEUX et PROGRAMMES 
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PROGRAMMES en BASIC ETENDU Ti 
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DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et a vet; des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

Oe plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a 



Pour par ticiper. il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoys gratuitement sur de- 



mande par la redaction de notre 
journal constitue facte de can- 
didature. 

ART. 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de foriginalite les logi- 
ciels qui sont publies dans le 
journal 

ART 4 Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel 

ART. 5- Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6 Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel 
ART. 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre, 1 , rue des Halles 75001 Paris. 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 

FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinafeurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom : 

Prenorr 

Age: 



n° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation nt 
une copie d'un programme existant Ce programme reste ma pro- 
priety et j'autonse HEBDOGICIEL a le publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee) 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descnptit Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non publie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENTFAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom, le nom du programme et le 
materiel auquel il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Apple sur PC 1500 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM , votre nom, le nom 
du programme et le materiel 
auquel il est destine Nouspour- 



rons ainsi reperer facilement les 

listings, une foissortis de I'impri- 
mante. 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
se pares car traites par d'autres 
services. 

• Joignez, si possible, un listing 
du programme et un organi- 

gramme 

• Enfin.lefindufin.expliquezles 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE 



HACHETTE MICRO INFORMA- 
TION OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CES RS . 232 . C. 



CHOISISSEZ LE PROGRAMME 



ty Texas Instruments 



PHC D04ARGB/FR Ordinateur I 



PHA 2036 
PHA 2101 
PHA 2627 
PHP I 1 00 
PHP I 500 
PHP 2700 



PHP 1220 
PHP 1240 
PHP 1250 



PHT 6067 
PHM 3003 
PHM 3082/; 
PHM 3116 
PHM 3049 
PHM 3117 
PHM 3015 
PHT 60 IB 
PHM 3 I 19 
PHM 3 I 18 
PHM 5029 
PHM 3020 
PHM 3004 
PHM 3050 
PHM 305 I 
PHI 60 19 
PHM 3 1 09 



nil 99/4 



Moflul.ileurPAL-UHF 
Modulaieur SEC AM 
Cable liaison magneto- cassettes 
Pane marietiesjeux 
Syntnetrseur de parole 
Magnetophone cassettes 

Systeme d'extension pehphf r ique • 

Carte interface PS 232 • 

Cade tonttdieuf de disquette ■ 

Unrte mtegree de disquette • 

Carte d'eitension mev • 

|RAM| 32 K 

Unite de disquette externe 

I PGCD-PPCM 

Addihon-Canon 5"! 

Crocodile savant 5£ 

Basic par soi-meme 4> 

Beginning Grammar ; 

Computer math games 66 

Division -demolition 6C 

Division I 67 

Dragon Savant 61 

Early Reading 4 

Meteor mu Implication 63 

Mission moms 62 

Multiplication I 3 

Music Maker 44 

La magie des nombres 6 



ill) l, 



PHM 3056 Alpmer 

PHM 3030 A-Ma/e-mg 

PHM 3033 Blackjack and poker 

PHM 3054 Car Wars 

PHM 3110 Chisholm Trail 



I 190,00 
743.00 
500.00 
I 50,00 
255.00 
680.00 
496.00 



66. u(! 

: M . 

134.00 
134.00 

: (■: 
i !■: 
I (■; ■■.. 



134.00 
188.00 
134.00 
134,00 
134.00 
66,00 
795,00 
1 1 9,00 
1 19,00 
119,00 
1 19,00 

134,01 
134.00 
134,00 
134,00 
134.00 



PHM 3036 

PHM 3037 
PHM 3023 
PHM 3034 
PHM 3024 
PHM 3025 
PHM 3057 
PHM 3067 
PHM 3112 
PHM 303 I 
PHM 3053 
PHM 3052 

PHM 3008 
PHM 30 1 8 
PHM 3039 
PHM 304 I T 
PHT6015 
PHI 60 1 7 

PHD 5001 
PHM 3113 
PHT 6003 
PHM 30 I 3 
PHM 30 1 4 
PHM 3014 
PHM 3055 
PHM 3076 
PHM32I8/FR 
PHT 6006 
PHD 5005 
PHD 5012 
PHM 3035 
PHD 5063 
PHD 5064 
PHD S065 
PHM 32 1 2 

PHM 304/US 
PHT 6046/US 
PHT6047/US 
PHT 6048/US 
PHT 6049/US 
PHT 6050/US 
PHT 605 l/US 
PHT 6952/US 
PHT 6053/US 
PHT 6054/US 
PHT 60S6/US 



Connect lour 

Hangman 

C ha sse au Wumpus 

Hustle 

Football 

Jeux video II 

Munch Man 

Othello 

Parsec 

The attack 



Jeu d 'tehees 

If , video 

Adventure 
Jeux Retro I 
Jeux Retro II 

F chiei d'adr esses 

Microsoft Muliipian 
Con seil financier 
Gestioo de fichieis 
Gestion de rapports 
Statistics 
Editoi assembler 

Budget lamiiiai 

Aide a Is programm.moi 
Programming aids II 
Programming aids Jll 
Terminal Emulator II 
UCSD Pascal Compiler 
UCSD Pascal Linker 
UCSD Pascal Editor 
Ti-Calc 



Adventure module 
Adventureland 
Mission impossible 
Voodoo Castle 
The count 
Strange Odyssey 
Mistery Fun Mouse 
Pyramid of Doom 
Ghost Town 
Savage Island I &. II 
Golden Voyage 



ft[ commodore 



16 


134.00 


19 


134.00 


,'■) 


134.00 


.'(i 


134.00 


III 




/H 


134,00 


.■'.' 


252,00 


23 


I8B.00 


24 


252.00 


Id 


134.00 


/I 


188.00 


25 


134,00 


17 


321.00 


11 


134,00 


10 


134,00 




1 53.00 


\h 


134.00 


i! 


134.00 


ss 


695.00 


■..: 


800.00 


56 


66,00 


51 


375.00 


W 


375,00 


S4 


188,00 


so 


500,00 


44 


500.00 




395.00 


4A 


66.00 


// 


249.00 


n 


249.00 


S7 


500.00 




1 132.00 


;". 


870.00 


76 


695,00 


01 


39S.00 


,, 


66.00 


13 


66.00 


i 1 . 


66,00 


Id 


66.00 


13 


66,00 


1 : 


66.00 


5/ 


66.00 


19 


66.00 


M 


66.00 


41) 


66.00 


J4 


66.00 



]a Regie 
aCfcdcul 



VIC I 530 
VIC I 54 I 
ROM 1541 



VIC I 526 
VIC I 520 



in special commodore 



let IciJi/eriiegiStrei 

Unite 1 de monodisquene 1 70 Ko 

transformation <fun VK is4oen 

VIC 1541 

Impnmante graptuque 

~" ol,60cps. 



Manche a balai | Joystick) 

64/24201M FORTH64 langage et edrteur 

assembleur 
64/24 1 2 1 B TOOL 64 des commandes d'aide 

a la prog ram matfon 
64/24601 D MASTERI64 loutll de developpement 



MATH STAT 64 



3250.00 

1 790,00 

160.00 



64/241 1 IB 


STAT 64 




490.00 


64/2 500 IB 


GRAF 64 




380.00 


64/2 500 IC 


GORTEK 64 auto'O'mation ac 


BASIC 


415.00 


64/25 10IC 


Autoformatton an BASIC (tome 


1 


415,00 


VIC 503 1 


VIC RELAY 




463.00 


64/2900 IB 


DIARV 64 agenda efectioniqi, 


e 


490,00 


64/23002M 


CALCRESULT 64 Advandec 




2.315.00 


64/23000 IE 


CALCRESUIT Easy 




1 130.00 


64/230020 


EASY SCRIPT 64 traitement de 


texte 


1 130,00 


64/2890 IB 


JURTERLANDER attemssage 








d un vaisseau spatial 




215,00 


64/289028 


KICKMAN on cycliste Sur un i 








a une roue ramasse des objets 




215.00 


64/2 8 90 3B 


SEAWOLf la guerre maritime 




215.00 


64/289048 


SPEED/BINGO MATH : 2 jeux educat 


215,00 


64/289058 










et des fromages 




215.00 


64/289068 


CLOWNS attrape? les ballon: 








a une balancorre 




215.00 


Burning Rubber 




190,00 


3D time trek 






1 90,00 


Attack ol the 


vlutant Camels 




1 90,00 


Gndunner 






1 90,00 


Box 64 






190,00 


Escape MCP 






1 90,00 


Pak.icud.i 






1 90,00 


( 'Tltr. ■)■"..]'. 






190,00 


Cyclons 






190.00 








1 90,00 


Renaissance 






190.00 


Styx - Tank a 


!ak - Mangrove 




190,00 


Annihilator 








RNest 






190,00 


Hoover bove 






1 90.00 
190,00 


Spuiti-M.m 






190,00 


Kra/y Kong 






190.00 


F logger 






190,00 


Si i.imhli' 






190.00 








190.00 








190,00 








190,00 


Moon buggy 






190,00 


i if.inrl \1 r.> 






360,00 



BON DE COMMANDE 

Participation aux frais de port + 20 F. Ci^oint mon reglement par : CCP □ CE Q Mandat D 

□ Je commande tes logiciels ou produits suivanU 
□ Je desire seulement une documentation sans engagement de ma part 



La Regie a Calcul - 65/67 Bd St-Germain, 75005 Paris 
Tel. : 325.68 J38 - Telex : 220 064 F ETRAV/1303 RAC 



. Livraison Janvier 1984 



(Pour lei molns de 18 ans. signature del parents) '. 



DICTEE 



Ce programme tourne sur GOUPIL II avec SBASIC. II fera 
de vous un champion de I 'ort hog rap he. il peut etre ame- 
liore afin de transformer le GOUPIL en un redoutable 



gram ma men. 



J.FCORDOLEANI 



; BSN w= I s = 0" 



TD CC* :BR*i 



•16 GO£:uE> I 



(TUBE 



99 goto presentation 

100 posub chuixdic. 

1b1 if nd*=0 thfin goto presentation 
ib-' dnsub at tente: gosub 270eb 

107. op( n Old do* as i 

1b4 gosub dfmondenom 

IBS PRINT CHR*i 12) IPRINTlPRINT TfiB(10>' 

IBS NH*-=3 

IBS ON ERROR GOTO 7B00 

120 INPUT ttl.L* 

12E N£*.=0 

130 PRINT 
135PR1NT 



250 I 



LENCI 



268F0R 1)1=1 TO L 

270 E*=MID*<L». IK. 1) 

280 IF E»<>"i— RND E*(>">" THEN PRINT E*T :NCX=NC%+1 :GCTD ABB 

282 CC X-CCX+1 

284 YX<CCX)-NCX 

286 1% < CC* 1 =NKX 

230 PRINT" "1 

231 NCX=NC**5 

310 FOR KX=I*+I TO L 

315 E*-MID*(L*. K*. 1) 

720 IF B»<)*>" THEN BR* i CCX>-BR*i CCX)*E*:GOT0 340 

33B GOTO 350 

340 NEXT KX 

750 IX=KX 

400 NEKT IX 

420 GOTO 120 

450 DDX-i 

480 FOR CX-DDX TD CCX 

490 PRINT CHR*(28> 1 

300 0OSU1 SRISIER 

5B5 IF 0-247 THEN DD%-C%:QOT0 480 

509 PRINT CHR»t IB) t 

510 IF Y*=BR*<CX) THEN PRINT"BI EN" ELSE PRINT". 
515PRINT CHR*(ll>*CHR*<li>I 
520 NEXT CX 
550 PR I NT I PR I NT 
555 FDR 1X-I TO CCXiPRINT BR*UX>JNEXT I* 

60S REM dictee termin** 

605 GOSUB flTTENTE 

687 RR*="RESULT"*F» 

61B OPEN NEW RR* AS 7 

620 PRINT *7,N0* 

B22 SD«"DIKfiD%> 

E25 PRINT#7,SD* 

630 IF CCX-0 THEN 670 

6/<0 FDR IX--1 TD CC* 




: 1000 


LABEL DEMRNDENOH 


21005 


PRINT CHR*< 12' :PH I NT : PR INT: PRINT 


21010 


PRINT TAf-i 18'"0UEL EST V0TRE NOM 


: 1 020 


INPUT LINE «B. NDt 


. 10-0 


PRIM1:PR1NT (PN1NTTW25>* M E R 


.1040 


FDR Tx 1 TO 1BIA0 : NEXT TX : RET 


. 2000 


LABEL BEMUlTAT 


22805 


GOSUB CHDIXDIC 


. 20 1 B 


DOSl* 270S0 : UPEN DID DD» OS 1 


."20 1 ; 


RR*=" RESULT "*F* 


22B2B 


OPEN OLD PR* OS 8 


: 207.5 


REM 


.'2040 


ON ERROR GO ID .'2500 


22045 


ix=a 


."2050 


INPUTBE.NO* 


22060 


INPUT HE. ND* 


22030 


IX=T**1 


.2090 


INPUT we. RE*' IX- 


2210B 


0010 22089 


221 IB 


I*= IX- 1 


22 1 7B 


PRINT CHW»i 12' : PRINT: PR INT 


22 1 4B 


PRINT TOh- ]0'"D«N5 Lfi DICTEE "IN 


2215B 


PRINT TBB<12)*FrITE FOR -JNO* 



2155 I 



INT 
»INT TABC] 



taute-s" 1GQSUB 25210 
2225B GOSUB ECfilTDIC 

22400 GOSUB 25-10 :6[IT0 PRE5ENT0TIDN 
22500 IF ERR=e THEN RESUME 22110 
22510 STOP 
23000 LfiBEL OTTENTE 

23020 PR1NT:PR1NT:PRINT:PRINT:PRINT TOBi 10. "fiTTENDEZ 

r* -i:RETDBN 

24000 LfiBEL CHDIXDIC 



24035 If ND*=B THEN RETURN 

24036 IF NDX=] THEN RDX=1 : RETURN 
2404B PRINTTRBi IB'" QUELLE DICTEE ?" 
24050 PRINT 

24060 FOR IX-=1 TO ND% 

2407B PRINT TftBUO'IX*" ")DI»tIl 

24080 NEXT I* 

24090 PRINT 

2410B PRINT TAFM20)" voire the,). "> •". 

241 2B R*=INCH*< B> 

24130 R=VAL>A*) 

24150 IF 0<1 OR R> NDX THEN PRINT CHR*' 

24160 ADX-A : RETURN 

2417B REM - 



GOTO 2412B 



OS 6 



1 :8R*(CX)-Y**' 



GO^ 



ese : 






RIGHT*. BR*iIX 
,2. 2): GOTO 660 
655 PRINT i7. •**" 
660 NEXT 1* 
670 CLOSE 7 
EBB CLOSE 1 
800 GOTO 39 
2000 LfiBEL SRISIER 
2018 FOR Y*=l TO YX(CX) 
2020 PRINT CHR*t29> UNEXT <f% 
2030 FDR YX»1 TO XXICX) I PRINT CHR* 
2040 Y*-"" 
2B50 O* = INCH«(0') 
2060 A=»SC<0*) 
2062 IF fi-13 THEN RETURN 
2065 IF fl=8 THEN IF Y*="" THEN 
"iCHR*i;8> 1 iDOTO 2050 
20EE IF fl=247 THEN RETURN 
2080 C-fi OR 32 ■ R*-CHR*(C> 
2B90 Y*=Y**0*:PRINTfi«: 

21BB IF LEN{Y»->=S THEN RETURN ELSE 2050 
6000 LOBEL PRESENTATION 
6010 PRINT 



THEN PRINTt(7. LEFT*(BR*<; 



ELSE Y«-LEFT*(Y*. LEN<Y> 



SPRINT CHR*.Ei : 



I LRBEL OUVERTURE 
25020 REM •**•**•****••****•**•********************.»...♦»*.*. 
25025 ER=1 

25070 REM .»*.♦*.-* OUVERTURE DU FICHIER NOMS DES DICTEES 
25040 REM #.*•**.**. 
25050 OPEN "nMid.ct 
^5060 DIMOE. Dl*'10i 
2-5070 ND*=CVT»%<DI*<01 ' 
2-50BB RETURN 

25090 REM 

25100 LOE<EL NDM 

:51 10 PRINT CHR*i 12) JPRINT!PRINT:PRINTiPRINT 

25120PRINT TfiBt 10> '-Oc-nr-e-z I «■ ncm de I* a ,--i'.- i"j 

251 4B INPUT LINE#0. ND* 

25145 IF ND*=-" THEN 25180 

25150 FDR I%=1 TO ND% 

2516B IF LEFT*' ND*+BE>». 3B>-DI*l IS> THEN 25200 

25170 NEXT I* 

25175 PRINT CHR*i 12> 

."5180 RETURN 

."5200 PRINT:PRINTTAB< 20 > "NOM d* 9. «<• d(jl lit . I i *< " 

25205 ER=1 

25210 PRINT:PRINT:PRINT:PRINT TflB<30) "iPPu/er Dour ooursu.vr. 

25220 RETURN 

27800 REM +*+*+*.** ENREGISTREMENT D' UNE DICTEE SUR DIDUE 

27005 IF NDX-9 THEN PRINT CHR*(7)li DDTD PRESENTATION 

27010 REM 

27020 PRINT CHR*. 12 ' 

27B24 ER-B 

27025 GOSUB NOM 

27026 IF ER=] THEN 27B20 

27B27 IF ND*-"- THEN PRESENTATION 

27030 PRINT TOPit0> "ENREGISTREMENT DE Lfl DICTEE :"; ND*iPRII 

27040 GOSUB SAISIE 

27050 DI*'ND%H i-ND* i ND%=ND**1 : Dl*> > =CVTH* i NDX ' 

27055 ODX=NDX 

27060 GOSUB 27080 I GOTO 270SS 

270SB F*=MID*(STR*':0D*>,2. 11 

27082 DD*-"DICTEE"*F* 

27086 RETURN 

27088 OPEN NEW DD» AS 1 

27090 REM 

27035 GOSUB ATTENTE 

27033 FOR I*=I TD NLX 

27100 PRINT il. Ll*(IlO 

27110 NEXT I* 

27120 CLOSE 1 

27125 FOR 1*-1 TD NL* 1LI*1I*)-' 

27130 GOTO PRESENTATION 

27210 LABEL SAISIE 

27215 CURSOR 22, 5> PRI NT" Et>t rez 




EB1: 



riNTu 



"POUR TERMINER 



BREflh 



601BPRINT TASflB)"* PROGRfiMME DICTEE 

601 SPRINT TAb(10>"*+***********************************V*. 

6020 PR]NT:pRINT THEi<15>"Pour cr<*r unr dict<« > : 

eaZV PRINT:PRINT TRBU5>-Pour fa i rt one dict(e > i 

6031 PRINT!PRINTTflB(15)"Pour avoir un rtauitat ) 3' 

6B32PRINT:PRINT TAB( 15) "Pcur terminer } A" 

6B40 PRINTiPRINT TOB'321" VOTRE CHOIX ? "1 

604? fi*-!NrH*i 0i 

EB50 IF A*-"]" THEN 27000 

6055 IF A*= "3" THEN 22000 

60F..B IF P*="2 - ' THEN 1B0 

60E.5 IF A*=--"4" THEN PRINT CHR* ! 12) : END 

E.B70 PRINT CHR*<7)M GOTO 6045 

7000 IF ERR-E THEN RESUME 450 

12B00 LABEL ECRITDIC 

12020 CCX-B 

12030 PRINT CHR»( 12) :PRINT:PRINT 

12050 ON ERROR GOTO 13000 

12060 INPUT 1 




.2070 F 



12i 



I FOR 



•LEN'L*) 
I NTH 



MI 0*1 1 



(INT 
TO I 



THEN IF £♦=»" 
121 IB CC¥=CC«*1 
1212B IF RE*(CC* 

1217B PRINT" ' 

ICC*). LENiRE*(CCX 

12500 NEXT I* 

1251B GOTO 12060 

1260B RETURN 

13000 IF ERR-E THEN RESUME 

13500 REM 



THEN 12500 ELSE PRINT E*i:GOT0 125' 



«■" THEN PRINT"- 
HR*<B) ;CHfl*(B>- 
):CHR*' I1>1 



27216 CURSOR 23.30JPHII 

27216 CURSOR 3. 2 

27220 NL%"NL**1! IF NL*"1B THEN RETURN 

27230 H»« INCH* 10) 

2724B R-RSC'R*) 

27250 IF A=13 THEN PRINT : GOTO 27220 

2726B IF 0=0 THEN RETURN 

27265 IF R=8 THEN GOTO EFFACE 

27270 ii.i 

272BB I :i-. M --■ -l :»■ M "■■ ■.•* 

27290 IF PEEKiHEXf -E572")) (-60 THEN PRI NTR* I I GOTO 27230 

27300 L«-LEN<Y*> 

27310 IF A*»" " THEN PRINTtGOTO 27220 

27320 GX=0 

27330 FOR 1X-LS TO 1 STEP -1 

277.40G*«G%+ 1 

27330 IF MID*<Y*. IS, 1)"" " THEN 1)1-1 

27360 NEXT 1* 

27370 GK-OK-1 

27380 IF I 

27390 FOR I*=I TO D* 

27400 PRINT SPCtGlO 

27410 D*-RIGHT*<Y«.G*> 

27420 . :-. .-..-.. :T ' i- [< : ■■ 

27430 L !*. W %•! '-[)• 

27440 PRINT D* I i GOTO 27220 

27450 GOTO 27230 

27500 LABEL EFFACE 

27510 IF LI*<NLX)-"" THEN PRINT CHR*i 7) T :GOT0 

27520 IF Y*»"" THEN PRINT CHR*(7)1> GOTO 27230 

27525 Y*=LEFT*IY*. LEN(Y*)-1) 

27530 LI*!NLX)»LEFT**LI*!NL*>.LEN(LI*INLX>>-1) 

27540 PRINT CHR»i8)*" "*CHR*>8)1 

27550 GOTO 27230 



. LEN<LI*lNLX> 



Suite de la page 1 



Suite de la page 8 



I* 



publicite; que nous avons faite 
pour le faire connaitfe. C'est vous 
qui en avez parle el qui etes notre 
meilleure publicile, merci ! 

II esl d'usage de prendre des re- 
solutions en debut d'annee, pour 
vous, ca a fair d'etre deja fait : les 
programmes affluent, et des 
bons, continuez ! 



De notre cote, nous prenons la re- 
solution de ne pas nous endormir 
sur nos lauriers. de suivre vos en- 
vies et vos desirs ; cette semaine 
du nouveau avec les codes a bar- 
res, un peu de logo Bientot des 
tableaux d'equivalence pour 
adapter les programmes des dif- 
ferents ordinateurs et bien d'au- 
tres choses encore pour qu'Heb- 
dogiciel reste votre journal favori 
Bonne annee ! ■ 



Liste des principaux primitifs 
graphiques : 

DESSINE : Nettoie lecran et ra- 

mene la tortue au centre 

AVANCE N La tortue avance de 

N pas 

RECULE N : La tortue recule de 

N pas 

DROITE N : Rotation de N degres 

a droite 

GAUCHE N Rotationde N degres 

sur la gauche 

POSE PLUME : La tortue trace en 

deplacant 

VIDE ECRAN Nettoie I'ecran 

CENTRE : Ramene la tortue au 

centre B 

10 



SOLUTION DE L'HIPPOREBUS : 



10 FOR 1=1 TO 10 

20 READ X 

30 PRINT CHR$ (X) ; 

40 NEXT I 

50 END 

60 DATA 80,72,79,84,79,83,84,89,76,69 




SHARP REVEIL 



Apres le reveil de poche, le reveil electronique et le radio- 
reveil. voici I'ORDI-REVEIL Vous le mettez a I'heure : 
2 chiffres pour les heures, 2 pour les minutes, et 2 pour les 
secondes. Vous choisissez I'heure de reveil. Vous choisis- 
sez votre melodie et le tour est joue. Ajoutez un affichage 
geant pour I'horloge et vous obtenez SHARP-REVEIL 




G. SCELLIER 



i REM SHPRP-REUEIL 

i rem programme pour le m?. 80 k 

3 REH ECRIT PAR G. SCELLIER 

J G0 T 0388 

i REH MUSIC BOX DrtNCER 

i FOR T=4 TO 6 STEP 1 

5 TEMPO T 

i MUSIC " -C2R0-C!G-C- E - C-E-G-C-»B' 

} MUSIC "-B'fl'GBRr 

) niiSIC"-G2-F"O0GB"D"F"E"C"""G"G"G l 

i MUSICR1" 

J MUSIC ■' "C2RB-CZG-C- E-C'E-G-C-HB" 

I MUSIC " - B-fl-G6R1" 

) MUSIC'-GZ-F-OBGB-OB-CG'E'C-C-CR" 

) nUSIC""*B"ft - F-CP.-C"F"P"G"C"fl"G"G" 

J nUSIC"R-G-F - DBSB"D"F-E"C-fl"G-G 

) MUSICRR" 

) nUSIC'-KB'W-F-Cfl-C-F-fl-S-C-fl-G-G" 

1 MUSIC"RRR-G-F-DeGB-DB-CG-E _ C""C-CRR" 

) NEXT T 

) RETURN 

) REM GREEN5LEEUES---TRADITI0NAL 

) j*-"A3-ts-D3-E4-Fi-E3-05B3" 
9 music j* 

) MUSIC"G<IAIB3~C5p.3" 

) MUSIC"fl4GIA3S51tG3' 

) MUSIC"E5" 

) MUSIC J* 

) MUSIC"G4P.|B3 - C48l«3ltG4«FI»l63fl5" 

) nusicflS" 
) nusiCflo- 

) G«-' , -G^-«F|-E3-D5B3G4PIB3" 

) H«="R4G!A3B5#G3E5B3' 

) MUSIC — G6 , ',G«,""CSP3 r ,H», ""GB-,G» 

) MUSIC"-C4B1A3»SIIFIIGfl5" 

) MUSIC"A3" 

) MUSIC"h5" 

) RETURN 

J REN SCARBOROUGH FAIR-TRAD1T I0NPL 

J HUSIC • , fl7 , ',"rt5"E7",""EB5 - CBP8fl5" 

t MUSIC "-E5-G-fi7-G5-E - «F-'D-£3"E7"ft5" 

! MUSIC "-fl?","-fl5"G7-£5- , ■■ - E"D"CBG?G8 



528 nUSIC'^-ES-^'CSBAGflBflB" 

530 RETURN 

548 REH THE LINCOLNSHIRE POACHER—TRAD 

550 TEMPO 5 

560 FOR T-1 TO 2 

570 MUSIC"M-D5", "-D3" , " _ D3~#CBfl5G3*F5A3 

-05", — D3-E5 - llC 3 - O6 - 05" 

5BB NEXT T 

580 t1USIC"fl3-D5"E3-HF5-G3-p5-1IF3-D5-E3"lt 

F5" 

008 MusiC"-itF3'v-itF3-E-o-E6-iiFe-E3" 

610 Hit- "-DS" :h2*^""D3" :M3* = ""03-«CBP.5G 

3»fs«3" 

628 Jl«»"-05" :J2*»--D3-E5-|IC3'* 

638 MUSIC HI«,H2«,H3* J J1«,J2*,' , -00"»F6"E 

3",H1«,H2*,H3», J1*,J2«,"-D6"05" 

648 RETURN 

658 REM CftN-CAN - OFFENBACH 

660 TEMPO 5 

670 MUSlC , 'G3"D , ',-'-03-E"D-C'-,"-C3-E-F"n-(t 

B" 

686 MUSIC"-fl3" , '-A3-G" , '~G5-fl3B" , "B3-P"G 

"C", "-C3-E", " _ E3"D-E-D-E-£)BG" 

698 MUSIC"G3-D" , —D3-E-D-C- , "-raTTTW** 

B" 

708 MUSlC"-n3 , ,' , "fl3"G r 1 , ""G5'"fl3B","B3-p"G 

"C", "-C3-E". " - e3"0-E"D-E-D"> ""D3"C" 

718 HUSIC"~C5" 

728 G*=-"-E5-CHG-G3-D-e - F-E"0-CS-' 

738 MUSIC G» 

748 nUSlC i, -E5-CPG#F3GflB"0-C", ,,- C5" 

758 MUSIC G* 

768 MUSlC--E5-CPGHF3GflB-0 - C" 1 ' , "C5" 

778 FOR T-l TO 3 

780 MUSIC"F5" ,"F5".''G3HflAG~C5","-C5",*"C 

S-OMPiGS' , *'GS" , '■GSHflflG" 

790 nUSIC'FS-F-E-O-CUHHG- 

808 NEXT T 

810 MUSIC"F5-C5F5","F7" 

820 RETURN 

930 REM SAILOR'S HORNPIPE 

840 J 1 » = "-£ I -tlD-|ICB-tn:B'»|tGP.^tGtlFE■ 



850 j2« = "E!ltOWC_B#CE|l01tFE#G#Fp#G3E" 

860 J3»="£3" 

870 FOR K"3 TO 5 

888 TEMPO K 

898 MUSIC ,,- £|-»lD-E3E", "E3B1 fl«GI 8"E-«D " 

E"*G-«F-E-tlF3l«F", ,, ltF3", ,, »FlE" 

900 MUSIC , '#Dl»FB»flB3-»Cl-»0" 

910 MUSIC JI«,J2*,j3« 

920 NEXT K 

930 L1*-"91P«GB - EB#GB-EB-»C3M" 

940 L2«-"P3-«ClBHP-#C-»F-«Cfl-#C-#F-#C-|tD 

38' 

950 L3«"''B3-»C1-»D" 

960 MUSIC L1*,LZ»,L3«,J1*,J2«,J3» 

970 RETURN 

980 REM "MA2URKA DE CHOPIN" 

990 MM*-"A3" :ni*'"fl5-HC3-D'"£-|<F-G-»F0~G- 

*F4 - E3-0"#CB-' 

1000 M2*="fl3 - 02R8-Dl"E2"0"l'C3B-i'C7-#C3" 

1019 n3*'"«3-llC2RB~#Cl-D2~er:83fl-D7~03■' 

1028 TI«="B00000" 

1030 PRINT-OaOSOTE? PATIENT POUR L'AFFIC 

HAGE S.u.P, . .- :FOR Pfl-I TO 2508 

1040 NEXT PA 

1050 PRlNT'BBBBBBQUELLE HEURE EST-IL ?" 



> IF LENCTIOO 2 THEN1060 

) PRlNT'BBBBBB COMBIEN DE MINUTES ?" 
! PRlNT"BB8BBB.r> 2 on I 'W« ,t«P = ",=I 
" T2* 

> IF LEN(T2*K> 2 THEN108B 

1 PRlNT'BBBBBB COMBIEN DE SECONDES 7" 



QUELLE MEUR£,L£ REU 



l 180 PRIN - 
NPUT T4« 
1180 IF LENCT4*) 
1208 PRInT'BBBBB 
1210 PRINT'BfflBBB 
NPUT TS* 
1220 IF LENCT5«J 
1230 PRINT 
SECONDES" 
1240 I6»="08' 
1250 TT«'T4«'T5*'T6« 
1260 IF TTt-'^SSSBB" THEN1440 
1270 PRINT^'BOBBBBBBBHEURE flCTUELLE • " i 

I2B0 PRINT'liaBBBBBBBBHEURE DE REUE1L: 

r CE CORRECT 



2 T MEN 1 r B8 

OMBIEN OE MINUTES 1 

n 2 chi ffr««iiwp : 



N") THEN1300 
MUSIQUE UOUS CON 



1280 PRINT 
O'N" 
1380 GET GCIF G* = "'* THEN 
1310 IF G*="0" THEN1348 
1320 IF G*="N" THEN1020 
1330 IF CGtO'D'^iCG* 
1340 PRINT' 
UIENT-ELLE 
1350 MUSIC 
1360 PRINT 



1370 GET G*--IFG«-"" THEN1370 

1380 IF G»-"0" THEN144B 

1390 IF G«>"N" THEN14I0 

1400 IF HG*O"0")*CG*O*'N") THENI370 

1410 PRINT"BBBBBBBBB0£BR0U|LLE2 UDUS POU 



1420 PRINT' BBBBBBBBBBBBEN PROGRAMMER UNE 

PUTRE ,::...,.-. 

1430 FOR 1=1 TO 2000:NEXT I 

1440 PRINT"D" ; 

'450 PRINT"BB9B"i 

14B0 F0RJ = 1 TO 35 :PRINT" C4" ; :NEXT :PfiINT 

1470 PRINT"BC7" i :F0RJ=1T035:PRINT"*"i : NE 

XT:PRlNT"C5" 



I PRIN 



'BC7* 1 



-;■- 



T033:PRINT' 7B" ;: 



1510 PRINT' BC7*- ; :F3RJ=1 TO!0:PRINT"; 



1530 PRINT" C7"i--F0RJ-1TD35:PRINT"*":-N€ 

XT:PRINT*'C5" 

'540 PRINT" ' ; :FORJ = lTO? ; PRINT "" ; NEXT 

:PRINT":8C8Ce-l 

1550 FOR J»1T0!5:PRlNT — ' ;-NEXT:PRINT""« 

C8C8' PFORJ-I TO? :PRINT""" i :NEXT 

1560 IF TT«-"3333BB" THEN1S80 

1570 PRINI'BMBBBBBBB h£UR£ DE REUEIL: 

" 1T4* i" H "iT5* 
158B DIMP*CI0).B«C1BJ,C»C10J.D»ClB),E»t1 
0),F*C1B],Gt(|B) 
1590 fl»(0)»" f 1FIFI " 
1600 9*(0J»" F I Fl " 
1610 C*[0)=" Fl Fl " 

1620 D»CBJ=" Fl Fl " 

1630 £*CB)=" Fl Fl ■ 
1640 F*ca:-- Fl Fl " 
1650 G*C8)-" FIFlFt * 
1868 fl*CU = " Fl 
1670 BtC1J=" F1FI 
1680 CHI).' Fl 
1698 D*C1 }'" Fl 
I7B0 E*C1J-" Fl 
1710 F»CU = " Fl 
1720 G«CI }•■■ FIF1FI 
1730 fl«C2J=" FIF1FI " 
1740 B*C2D"" F| Fl " 
175B C»[2>" Fl " 

1760 0«C2)»" Fl 

1770 E*C23-" Fl 
1780 F«C2)=" Fl 
1798 G«[2]-" FIF1F1F1FI " 
1808 fl*C3>" F1FIFI 
1 31 B B»C3)=" Fl Fl " 
1820 C»C3)=" Fl " 

1838 0«C3)=" F1F1 " 
1848 E»[3)=" Fl " 

1850 F»C3J=" F! Fl " 
1860 G*C3)=" 
1870 fl«C4)»" 
18B0 9*(4)=- 
1B9B C*£41-' 
1900 D*C■!J- , ■ 
1918 E4C4)-' 
1920 F»C4)=" Fl " 

1930 G»[4)-" Fl • 

1348 fi«[5J»" F1F1FIF1I 
19b0 B«C5>" Fl 
1960 C»C5J-" F1FIF1FI 
197B D«tS)=" '1 " 

1980 E»C5)-" Fl - 

199B F»[5)-' Fl Fl 
2808 G«[SJ-*' Fl F IF I 
2010 ft«C6)"" F1F1F1 
2820 B*(6)=" Fl Fl 
2830 C*16>" Fl 
2840 D«C6)=" F1F1F1F1 
2850 E»C6J-" Fl Fl 
2860 F«C6)=" Fl Fl 
2878 G«t6J = " F IF IF 1 
20B0 P.«t7J = " siFlFlFII 
2890 B«C?J=" P| Fl 
2100 C»[?>" Fl " 

2110 0«C7J=" Fl 

2I2B E«C?>" Fl 

2138 F«t7)>" Fl 

2148 Gt(7)=" Fl 

2158 P»(BJ= FIF1F1 

2160 B*(aj=" F| Fl 

2170 cue:-- Fl Fl 

2180 D«C8)*" F1FIFI 

2190 E«(B)'" "I 'I 

2208 F»CB)=" F| F| 

2210 G*t8)=" F1F1F1 

2220 A*(93 = " F IF IF I 

2230 

2240 

2250 

2260 

2270 

2280 

2230 



F1FIF1 



FIF1FIFIF1 



C»t9J=" 
D«(9)=" 
E»t9) = '' 
F*(8J-' 
G*(93 = , ■ 



2300 MCI01-" 

2310 B*I103"" 

2320 C»C10J=" 

2338 D*tl0J=" 

2340 £*C10)=" 

2350 F*tlBJ=" 

2360 G«CIB)=" 

2378 08=0:01-1 :02=2 

2380 T*=Tl«:Tl-UflLCRIGHT*[T»,2)] 

2330 IFTI-TPTHEN23BB 

2400 TP = T I MFTI-D0THEN26B0 

2410 S8=T|-INT[TI'D2)*D2 

2420 ON S0»OI GOSUB2940.2950 

2430 ONT1-53GOTO2450, 2538, 2600, 2660,: 

,2660 

2440 GOTO2390 

24S0 Ht-I 

2460 H-UftHLEFT*[T*,2)J 

2470 M-UflLCMID«[T*,3ir)) 

2480 M-Mtl :IFM=60THENM-0:M-Ht-t 

2490 IFh>23Th£NH=H-24;GOTO2430 

2500 H1-1NTCH/I0J:M0=N-H1*10 

2510 M1=INT[M^!0J:M8=M-M1*1B 

2520 GOTO23B0 

253B IFX!=8THEN23B0 

2540 XI=0:X2=1 

2550 P*=S*ffl*CHI3tfl*CH0Ji" "tfl«CMHff 

0) 

2560 B« = S*fBUHl JtB«CH0)-r" >B*tMllt6 

0D 

2570 C*=S»'C*CHI ]rC*CH0)f' 

M0) 

2580 □«=S*'-D*CH1 J.D«CM0)«' 

0] 

2590 GOT023BB 

26BB 1FX2-8THEN23B0 

2610 X2-B=X3-I 

2628 E»=S«*£«CHn + E*CHBJ''' 

M0) 

2630 F»*S*--F»CHI)tF«CHBJ*' 

8) 

2648 G*-S*■'G*LHl:•■G«tH0]T , 



I )*C»C 
)-.D*CM 



I ]tE(C 
J*F«CM 



■+G*crii J*G«tr 



2650 GOTO23B0 

2660 IF tn=8)*C«=13 THEN MUSIC'Rl" 

2670 GaTO2380 

26B0 IF X3=0THENGOSUB23?0:GOTO23BB 

2690 IF M-0 THEN MUSIC'Rl" 

2700 PRlNT'BBBBflB" -PRINTS* ^PRINTS* :PRINT 

C*:PR1NTD« :PRINTE» ^PRINTF* iPRINTG* 

2710 IF UflLCTI*)=UFiL[TT«] G0SUB238B 

2720 T4-UflLCTT»):T3— I 08 :T3*-STR»CT3] :TT 

«= STR«(T4J 

2730 MM-UflLCTT«)iU«LCT3*) :M»-STR«CMMJ 

2740 IF UAL(TI*J=UW.Cn«) GDSUB296B 

2750 T4"UM.CTT*l'EI* 58B;21»=STR«(il 3 J TT 

»- STR«IT4J 

2768 P.P-UHL(TT*)tUl4Ltei«) :flP.«-STR«lflft) 

2770 IF UPLCTI*)-U|4Ltnfl») GOSU6140 

27B0 T4=UAL[TT*)^2-I0B0:?2»=STR*U21:TT 

«= STRHT4J 

2790 8B=UflLCTT*)*UflLC?2*) =BB«=STR*tBB3 

2600 IF UfiL(TI«)-UFiLCBB*l G0SUB318 

2B10 T4=WFILtTT»)^3=1500:?3*=STR*C23]:T: 

*= STR*CT4) 

2820 a>UALCTT*)tUflLC23*) :CC«=STR»CCC) 

2830 IF UALtTI*J=UflLCCC*J GOSUB4B0 

2840 T4=UPLCTT*J:?4=2000:?4*=STR*C24] :TT 

«= STR»CT4] 

2850 DD=UHLiTT«)iyPLt?4*)iOD*=STR*C0D) 

2860 IF UflLCTl*3 3l JflLCDD*) GOSUB540 

2870 T4-URL[TTHi25-2500:?5*=STR»C25):TT 

»- STR«(T4J 

2880 EE=UPL[TT*)TUftH2S»)iEEt=.STR»[EEJ 

283B IF UALCTIO-Uffl-tEE*) GOSUBB30 

2900 T4=UPLCTT«l-?6=3B00^6«'STfi«tl6):TT 

*= STRi(T4) 

2310 FF=UPL[TT*)*UftLC26*) :FF»»STR»(FF J 

2326 IF UPLCTI«)"UrtLtFF*I G0SU8658 

2930 X3=8:GOTO2380 

294B PRINT"I 

1BfflfflFl":RETURN 

2950 PR1 

811 " :RETURN 

296B MUSIC "P2E2G2" 

2970 RETURN 

2880 TEMPO 3:MUSIC rn», Ml *.M2*, Ml *, M3*,r 

l*,M2»,MI*,n3* 

2998 MUSIC MMt,MI*,M2*,M]*.M3*.M)*,M2*^ 

t*,M3*:RETURN 






^ 



Suite de la page 7 



070 CALL SCREEN! 
080 D-10-A 
090 N=N*1 
00 S=INT1RND»2) 



' FOR OW-1 TO 100 
i NEXT QU 
I N»0 



I w=S/2-INT(S/r> 
i IF W-0 THEN 117i 

> Y=UNT(RND»D/r> 
) GOTO 1200 

> V-lINT<FlND-D/rt 

> if x-v then ur< 

) !1-(X*V)/2 
1 GOTO 1310 



ELSE 1190 



1340 U-INT(! 






1370 


IF N' 10 THEN 13BO EL9E 


1380 


O1S0 


1390 


GOTO 1440 


1400 


IF N 20 THEN 1410 ELSE 


1410 


C-93 




GOTD 1440 




030 




CALL HCHQR(22. 13,32. 12 




GOSUEr 1830 


1460 


FOR 0T=1 TO C 




CALL KEV(0,h£Y,Rl 


14B0 


IF R- THEN 1310 




NEXT OT 




GOTO 1710 




CALL S0UND<100,2000,5I 




IF M'=10 THEN 1560 


1530 


M=kEY-4B 


1340 


IF H=INT(MITHEN 195'.' 




GOTO 1710 


13*0 


H-I-EV-4B 


1570 




1580 


FOR UI-1 TO BO 


1590 


NEXT UI 




OT-0 


1&10 


FOR OT-1 TO C 


1420 


CALL KE¥<o.l EY.R) 




IF R- THEN 1660 


1640 


NEXT DT 


1650 


GOTO 1710 


1660 


J->EY-4B 


1670 


CALL 90UND( 100,2000,51 


1680 


K-10»H+J 


1690 


IF h:-INT(M)THEN 1950 


1700 


GOTO 1710 


1710 


GQSUB .:-. 


1720 


CALL CLEAR 



740 CALL C0LQR(DF,2.71 

730 NEXT DF 

760 PRINT "VDUS AVEZ PASSE" lN-1 | "PI 

770 PRINT 

7B0 PRINT "LA BONNE REP0N5E ETAIT:' 



INPUT "VOULEZ-VOUS REJOL 

IF N»-"OUI" THEN BOO 

END 

IF T-4B THEN I B30 

CALL HCHARI22. 13, T) 

CALL HCHAR122, 14, V) 

CALL HCHARI22, 16,481 

CALL HCHARI22, 19, I) 

CALL HCHAR(22,21,4B) 

COLL HCHAR(22,24,P) 

IF U=4B THEN 1920 

CALL HCHAR(22, 1B.U> 

IF 0=48 THEN 1940 

CALL HCHAR(22.23,0) 

RETURN 

CALL HCHARIXV.YV,32> 

IF YV-7 THEN 1970 ELSE I 



2130 
2140 
21S0 



2040 
2050 
2060 
2070 

:i'8o 

2090 






CALL HCHARI1 
CALL HCHARd 



r' ";■ 



CALL HCHAR(XV-1.VV*1.32: 
CALL HCHARIXV.YV, 125) 

2160 NEXT VU 

2170 GOTD 1090 

2180 CALL S0UND(1000,-6,5I 

2190 FOR QH-2 TO 16 

2200 CALL C0L0RII2,GH,7J 

2210 NEXT GH 

2220 RETURN 

2230 PRINT 

2240 PRINT 

2230 PRINT "OUAND VDUS AVEZ I 

2260 PRINT 

2270 PRINT "SUR UNE TDUCHE. " 

22B0 CALL KEY(0,KEY,WS) 

2290 IF W5< >0 THEN 2310 

2300 GOTO 22B0 



2320 
2330 
2340 
2330 
2360 
2370 



PRINT 

CALL SOUND (350,: 

RETURN 

FOR TYU-1 TO 5 

PRINT 

NEXT TYU 

PRINT " "- *• 

PRINT "•*■>■ 

PRINT " ~-" - 

PRINT ■ - * 



i NEXT SDF 

i FOR BN-1 TO : 

i SF-1NT(RND«4': 

i SH-INT(RND»2000H 

i CALL SOUND II. 20000,30) 

i CALL S0UND<23O,SF.3,SH,=> 



♦400 



I NEX - 
i RETURN 



i= 



MINE-ZONE , e \\ 



Vousavezlaissetomberquatre pieces dans un champ. Al 
iez done les ramasser ! Ah, au fait le champ est mine, n'ou 
bliez pas votre detecteur sonore, sinon... Baoum ! 



Salvatore FORINO 



Vous vous deplacez avec les touches I, J. K et M du clavier et le signal so 
nore retentit quand vous etes a une case dune mine Si vous avez des 
difticultes pour comprendre le fonctionnement du detecteur. rajouter 
la ligne suivante pour les premieres parties : 
1745 IF HA-2 or HA-3 THEN VTABJ: HTABI: PRINT "*" , 





REM • • 




SEM • MINE-ZONE + 




REM * « 




REM • ACHEVE LE 1/11 /19B3 * 




REM > PAR • 




REM » SALVATORE FORINO » 





REM » • 




REM 




DIM PM141,23> 


10 


60SUB lOIOr REM MUSIDUE 




GOSUB 23601 REM REMPLISSAGE 




ECRAN 


50 


60SUB 900s REM SAISIE HEURE 


40 


G05U6 !m9n; REM PRESENTATION 


BO 


GOSUB 16701 REM PREPARATION 




TERRAIN 


.SO 


REM 


70 


REM BOUCLE PRINC1PALE 


no 


REM 


vo 


X - 20lV - 24s REM POSITIONS 




INI T I ALES 


-i'i 


REM MINE A PROXIMITE -5 


up 


FOR y - - 1 TO 1 STEP 2 




IF PHtK * 1 ,T> - " OR PM(X + 




K,Y) - 3 THEN K - Is GOTO 28 







30 


NEXT 




FOR K - - I TO 1 STEP 2 


10 


IF PMIX.V ♦ K) - 2 OR PM1I.V 




* y > - 3 THEN » - 1 : GOTO 1 




60 


•■■ 


NEXT 


70 


GOTO 330 


BO 


FOR V - 3 TO 1 STEP - . 5 


90 


FOR F - 2 TO 1 STEP - .5 


OO 


POKE 768. V: POKE 7b9.Fi CALL 


10 


NEXT F 




NEXT V 


'■" 


VTAB V: HTAB X: GET A» 




CO - CO * 1 


so 






IF A* - , 'I" THEN Y - Y - Is 




Y < 1 THEN Y - 1 


70 


IP A* » "H" THEN V = Y * !i 




Y . 24 THEN Y - 24 


HI) 


IF A* - "J" THEN X - X - li 




X ■ I THEN X - 1 


v< 


IF A» - "K" THEN X - X ♦ Is 




X > 40 THEN X - 40 


00 


Z - PM(X.Y) 




REM VA-T-IL UN MUR"> 


?0 


IF I = 1 THEN X - X2iY - Y2 


30 


REM VA-T-IL UN OBJET? 


40 


IF Z * 4 THEN GC3UB 480 


50 


REM VA-T-IL UNE MINE"* 


60 


IF Z - 2 OR I - 3 THEN 2010 




GOTO 200 


HO 


REM EST-CE DUE TOUS LES 


90 


REM OBJETS SONT PRIS 




FOR N 


- 1 TO 4 






IF PM 


PI <N) ,P2(N) > - 4 


THEN 


VTAB 


Ys HTAB X 


PRINT 




PE TURN 






NEXT 
















REM ■ 


I C I , TOUS 


LES 




REM - 


OBJETS ONT ETE 




REM - 


PRIS 




■ 


VTAB 


Os HTAB 1 


s FLASH s PR 


"FELICITATIONS 


! ■ s NORMAL 


VTAB 


4s PRINT 


VOUS AVEZ RE 


USSI CETTE MISS 


ON. " 




PRINT 








PRINT 


'■PREPARE Z 


VOUS A 


UNE A 


UTRE 


ISSION " 






PRINT 


PLUS DIF 


ICILE 



J VI - 150sV2 - 200 

> FOR T - 1 TO S 

1 FOR T2 - VI TO V2 STEP 5 

I POKE 768,1: POX E 74,9, T2: CALL 



720 


NEXT T 




730 




+ 5sV2 - V2 - 5 


740 


NEXT T 




750 


SC - SC 
E) 


♦ 1000 - INT (CO 




LE - LE 




770 


IF LE 


20 THEN LE - 20 


780 


GOTO 150 




REM *• 




800 


REM » 


TOUTES LES » 




REM * 


SOUS-ROUTINES • 


820 


REM • 


SE TROUVENT « 


840 
850 


REM • A PARTIR D" ICI • 


REM 




860 


REM 




870 


REM 




BSO 


REM - SAISIE DE L - HEURE ' 




REM - 


POUR HAEARD - 




HOME 




910 


INPUT 


ENTREZ L' HEURE ■ " 


920 


INPUT 


ET LES MINUTES 3 " 


930 


H - HI 


60 + H2 


940 


RETURN 




930 


REM 




960 


REM 




970 


REM 




98i ■ 


REM - 


IMPLANTATION 


990 

100C 


REM - 
REM 


DU SON 


ion 


FOR T 


■ 770 TO 806 


102C 


READ Ms POKE T.M: NEXT : 



1030 


DAT* 172. 1,3. 174. 1,3, 169,4 


i 


.32, 168.252, 173,48, 192.272,2 


I 




* 


OB. 231, 96, 32,32. 1 12. B. 24, 2 16 






1040 


REM 


1070 


REM 


REM ■ PRESENTATION - 


iobo 




1090 


HOME 


1100 


A« ■= "MINE-ZONE" 


1110 


FOR L » 1 TO 9 


1120 


FOR L2 • 4U TO 15 * L STEP 


1130 


B* - MID« IA».L, 1) 


U40 


VTAB 5t HTAB L2 - li PRINT 




B*ts HTAB L2: PRINT ■ "1 




NEXT L2 


1160 


POXE 76B.L2 / 10s POKE 769, 






1170 




1180 


FLASH : HTAB 15s PRINT Atl: 




NORMAL 


1190 


FOR L3 - 1 TO 3 




FOR L - 1 TO 9 




FLASH 




VTAB L: HTAB 19: PRINT MID» 




(AS, L, 1)1 




VTAB 5: HTAB 14 + Ll PRINT 




MID« IAI.L.DI 


1240 


POKE 768,3 


12S0 


POKE 769. L 


1260 


CALL 770 


1270 


NEXT 


1280 


FOR L4 - 1 TO 100: NEXT L4 


1 Z90 


NORMAL 


1300 


FOR L - 1 TO 9 


:•:■> 


VTAB Lt HTAB 19: PRINT " "| 


1320 


VTAB 5: HTAB 14 * L: PRINT 


1330 


NEXT L 


1340 


NEXT L3 


1350 


VTAB 1: HTAB 15: INVERSE : PR 




■MINE-ZONE"; NORMAL 


1360 


FOR L - 20 TO 1 STEP - 1 


1370 


POKE 76B,Is POKE 769, L « 2: 




CALL 770 


1380 


NEXT 


1390 


SPEED- 130 


I4O0 


VTAB 3 


1410 


PRINT "CE JEU CONSISTE A RA 




MASSER 4 OBJETS '"|l FLASH : 




PRINT "0"I: NDRMAL 1 PRINT 


1420 


PRINT "DANS UN CHAMP DE M1N 




E5 INVISIBLES ." 


1430 


PRINT 




PRINT " POUR VOUS AIDER. UN 




DETECTEUR DE MINES (SIGNAL 




SONORE) VOUS INDIOUE OU'UNE 




MINE SE TROUVE A PROXIM 




ITE ." 


:■•■:■■■ 


PRINT 




PRINT " IL Y A AUSS1 DES 08 




STACLE5 INFRACHISSA- BLES I* 




#' 


1470 


PRINT 


1480 


HTAB 15: PRINT "DEPLACEMENT 




Si ■■ 


1490 


PRINT 


1SO0 


PRINT " DROITE <» 


1310 


PRINT " GAUCHE (J 


I B2i ■ 








1540 


VTAB 23: PRINT "TAPE* UNE T 




OUCHE POUR COMMENCER. "1 


1550 


GET A« 


1360 


SPEED- 255 


1370 


FDR T - 1 TO 255 STEP 3: POKE 




768.1 I POKE 769, T: CALL 770: 


1380 


NH • 3i REM NOMBRE DE VIES 




LE - 40 


1600 


RETURN 


1610 




1620 


REM = PREPARATION 


1630 


REM - DU TERRAIN 



640 REM » t, DES OBJETS 
650 REM ■ wnwwwM ii fmw 

660 REM 
670 HOME 

680 CO - 

690 VTAB 24: FLASH s PR 
PARAT10N DU TERRAIN": 






FOR I - 1 TO 40 
FOR J - 1 TO 23 
GOSUB 1920 



730 PM(I, J) - HA 

740 IF HA - 1 THEN VTAB J: HTAB 

I: PRINT "•"(! POKE 768.1: POKE 

769,200: CALL 770 
750 NEXT J, I 
760 REM 

770 REM PLACEMENT DES OBJETS 
REM 



790 FOR I - : 
GOO GOSUB 19: 



820 I 
830 

840 

850 PV • HA 

860 P2(I) - PV 

B70 VTAB PV: HTAB PH: FLASH : I 

"O"!: NDRMAL 

880 PM(PH.PV) - 4 
B90 NEXT 
9O0 VTAB 24: HTAB 1: PRINT " 

RETURN 

REM « RECHERCHE D - UN 
REM - NOMBRE ALEATOIRE - 



2020 
2030 
2040 



3230 
2244 

2230 
2260 



2290 

.■■v... 

2310 



2350 
2360 
2370 
2380 



RETURN 

REM * EXPLOSION 

FOR I - 1 TO 10 

CALL 815 

FOR F - 5 TO 2 STEP - 1 

POKE 76B.I: POKE 769, F: I 



NEXT I 
NH - NH - 1 

HOME 

IF NH - THEN 2230 

FLASH 

PRINT "ATTENTION ' ' " 

NDRMAL 

VTAB 3 

PRINT "IL VOUS RESTE " ! NH 

VIE" I 

IF NH > I THEN PRINT -B" 

FOR T - 1 TO 2000: NEXT 

GOTO 130 

REM — — — 

REM - PLUS DE VIES - 

REM ——=—-— 

VTAB 3: HTAB 14: FLASH : I 
"FIN DU JEU": NORMAL 

VTAB lO 

PRINT "VOTRE SCORE EST DE 
I SCI" POINTS" 

FDR T - 1 TD 2500s NEXT 

GDTD 140 

REM —————— 

REM - PREPARATION 

REM - DU REMPLISSAGE - 

REM - DE L* ECRAN 

REM =— ———■...— 

FOR T - B15 TO 840 

READ M: POKE T,Ml NEXT 

DATA 169,0, 133,6, 169.4, 

3.7,162.4,169, 32.160,0,14! 
6, 1 36. 20B. 25 1.230,7,202,201 
244,96 

RETURN 



1 SOLITAIRE 



Le Solitaire a-t-il ete invente par un prisonnier qui s'en- 
nuyait ? C'est possible, en tout cas il ne disposait pas du 
crayon optique du Thomson ! 






TO 7 



SOLITAIREiTHOhSDH TO" 1 



LIS+.NT LE CRAYON OPTIOU 



70 ■ REGLES [U JEU 

80 CLSiL0CATM,2,6JPRINT"VQULE2-V0US LES 

PEGLES C'U JEU'D N'"~ 
65 ..i = IMKEYf 

96 X**INKEY*tIF X*«"THEN 96 
loe if :.:*="n"then goto 300 else ne 

110 L0C«T£(i.4.0iPP:wT" PGUP PRENl'RE UN 

PK'N. POINTED iJNE CftSE RLEINE CONTIGUE A 

CELUI-CJ." 

120 PRINTtPRIHT B SAUTEZ-LE EW LIGttE DROIT 



I7fi FP1N 



TRE I 



tBRE. 



PINT" 



.. ; i ■ -M- [\-'EE ! : " 



46 PFINT:PFINT"VUi.!: ~--lZ (.wiME i.'-:-.-: 

L HE PE5TE OU'UN PIQH'" 

150 PPINTsPPINT" SI VOUS ETES ELOQ 

UE OU SI VOl'LEI hPPETER Lh PhRTIE- hPPO 

VEI SUP L'ETOILE BLEUE. " 

155 PPINTiPPINT!PPINT:PPINT:PPJWT"t4PP0YE 

2 SUP ENTPEE POUR CONTINUEP... " 

138 M-IKKEYI 

166 M-1MKEY*UF k»=-"THEN ItiC 

176 IF Mt*CHP»- 13 'THEN 300 

180 CLS:LOCrtTE 0.3-0:PP1NT"V0uLE:- :.■ 

ME -UTRE PARTIE' N ' »" 

185 H$=I»kEY« 

196 (4*>INKEY*HF H»=--THEN 196 

266 IF H*='0"THEN 360 

£10 IF M* = "N-THEN LOChTE 6.3:PPINT"" E-IE 

«T0T...":COT0 226 

215 IF H»<>*0" OR H* "N'THENl^D 






nf% 


s Tnn m -9t r ~ ^"W* ' 


^J—iiMJpsZZZ**' Q4. 


- 9t*Y" 




560 


OCATE 24>:i + 11.2«Yl-£:PPlNT- " 




378 


OCATE B»<(Xl*X>/8)+IUa»(<Yl+Y>/ ( 




2:PR1NT" " 




586 PLAY-04L6SODO" 


320 ' hLOOPITHUE 


596 FOP U=l TO 400 




B00 NEXT M 


330 C=0 


616 GOTO350 


350 LOCMTE 0. l?,e:PPINT"POINTEZ LA CASE 


?96 END 


DE E'EPARTi ": INPUTPEN XI, YI 


995 




355 LOCATES. l?:PRINTCHPt'.24> 






3b6 IF XI 362 AN[> YU16 THEN GOTO 180 


: ■■•' : 


CLS 


370 IF KK99 OP Kl>211 OP Yl 27 OP VI 13 


1662 


PSET.38,1 >GPI'0'.4 


? THEN PLAY ,, 01L9qDQ"!G0T0 358 


1010 


COLOR 7 


330 Xl=< Xl-9?'316*l!Yl=i Y 1-27 '316+1 


1015 


FOR 1^0 TO 3 


350 IF S'Xl.YIi=6 THEN PLHY-01L?6DD-:G0T 


1626 


L INE ' 131 + 1 •16,27:*- 131 + 1 *1 6. 139' 


356 


1638 


LINE' 99. 59+ I » 16 ■-- 21 1.59+1*16 ■ 


408 PLAV"04L6C'0f1]" 


1040 


NEXT I 


402 C0LOR4 


: .-'... 


FOR 1=0 T0112 STEP 112 


405 LOCATE £♦>: ! • 1 1 . £fi I +2 : PP3 NT GPJ'6' 


1068 


LINE' 131.27 + 1 '-'179.27 + 1 1 


416 StXl,Yl - = e 


1076 


LINE'99'1,5?'-' 99*1, 187' 


415 FOP H*l TO206 


1066 


NEXT 1 


417 NEXT U 


1696 


BOX- 115,43'-' 195,123- 


420 LOCATE B/2U6IC0L0R 4IPRI«T'P0IHTEZ 


1166 


RETUPN 


Lh CASE D'ARRIVEE'"HNPUTREN x»y 


1996 




425 LOCATE 0,2l:PRINT CHRS<24> 




' P10NS 


430 IF X<99 OP >:211 OR Y'27 OR Y>139 TH 


2863 




EN GOSUB 5080: GOTO 350 


2618 


FOR 1=1 TO ~ 


440 X«<X-99>316*1:Y=<Y-27>31b*1 


:v:-.i 


FOP J=l TO 7 


450 IF SvX.Y.=l THEN G0SU8 5806 :GOTO 35 


S83Q 


S(I, J)«l 



2)=6 THEN GO.-UB 



4c6 IF i' CX1+X* i 
56681 GOTO 356 

470 IF S"XI+X ■ ■£,< Yl.,'. 2. = 6 AND SO:.Y> 

=1 THEN GOSUB 5000:^010 356 

486 IF :. = >;! AN!' ABS'Y-vl' :2 THEN GOSUB 

5066 :GOTO 350 

496 IF V=V1 AN[' ABS(X-X1J 2 THEN GOSUB 

5060:GOTO 356 

506 IF ■. VI hNC< X XI THEN GOSUB 5686:G 

OTfj 356 

510 COLOR 7:L0ChTE 2tX-11.2»V+2 

515 LOCATE 2»S+1 1.2»Y+2:PPINT GP*<0' 

520 C=C+1 

530 IF C=35 THEN GOTO 3060 

540 S<X,Y -1 

550 S' (XI+X ' 2. ■ ■> 1*' ■ 2 ■-£• 

12 



2646 NEXT J.I 

2056 S' l.n = 0:S'2.1 '=0:SO,2> = 

2052 i'6.1>=e:S'".! =0:S'7,£.=0 

2054 ;-■ l,7^0:S'2.7. = 0:S'6.7> = 

2056 S' 7, 7. =0: Si 7. 6 ' = 0!S'l,6- = 

205B S- 4,4**6 

2060 FOR 1=1 TO 7 

2076 FOP J = l TO ^ - 

2080 IF S'I.J>*0 THEN GOTO 2100 

2096 PSET' 11+I*2.2+J»2'GP**0.7 

2160 NEXT J, I 

£146 RETURN 

2990 



3805 ' 

3610 hTTRB : 

3626 COL DPI 



G-GNE 



3636 


LOCATE I4,20.0:PR1NT"BRAVO" 


3646 


PLHY'04L24t>0E'0«INlS0SO05D0E'0 


3656 


FOR U1-1TO1606 


3668 


NEXT U 


3676 


CLS 


3675 


COLOR 7 


3086 


HTTRB 0.0 


3098 


GOTO 186 


3695 




4066 


PRESENTATION 


4681 




4062 


CLS 


4885 


Dlil K*>18> 


4668 


K*-"S#0»L*I«T*h»1»R»E" 


4616 


L-LEIKX*) 


4615 


FOR 1=1 TO L 


4020 


K*(U«mD*(K*,I,I 


4025 


NEXT I 


4630 


HTTRB 1,1 


4035 


FOR 1=1 TO L 


4936 


J = l 


4040 


COLOR 1,4 


4050 


LOCATE 2*1+1. J.8SPPINT K*(I) 


4055 


FOR X=l TO 10SNEXT X 


4660 


LOCATE 2»I+1. J:PP1NT" ■) 


4665 


J=J+2 


4 in; 


IF J013 THEN 4650 


4676 


LOCATE 2*1*1 , J 


4675 


COLOR 7,5-PRINT x«. I ■; 


4686 


PLAY"L505D0RE"IFhSu" 


4665 


NEXT 1 


4896 


FOR U=l TO 560 


4168 


NEXT U 


4110 


ATTRB 0,0 


4130 


RETURN 


■.HlHH 


PLAVO1L96D0" 


5610 


LOCATE 2«XI + 11.2" , i 1+2 


'.eid 


COLOR 7 


5636 


PRINT CRtCB ■ 


5646 




5856 


RETURN 



NEUTRON 



Pour pouvoirvous poser surle sol decettemaudite plane- 
te, et faire le plein, il faut d'abord detruire les installations 
ennemies. Vous disposez dune bonne reserve de bom- 
bes, mais seulement de 5 missiles. Acceptez vous cette 
mission ? 

Alain RENDERS 



"B" largueles bombes. "M" lire les missiles Le niveau de difficulte va de 
1 a 10 pour la rapidite et I'espace entre les batiments est reglable de 1 a 
3. 



1 REM RENDERS a la in IHEUTRDN^ 

(=.PECTRUM) 

2 DfiTfl 0,B,O,ie.l6 J 55,66,H6, 
« . ■ , 56 , 16 , 56 , 124 , Z54 , 132 ,96,34,1 
30, 206.. 158,836, l?e,S4,2H,S6 ,354. 

, 56, ai4, e* ,e 

3 DATR 0,0,16,72,63.72 16,0,8 
, 63 , 96 , 25^ , 170 , 170 . 255 . 127 , , 252 
, 6 , 255 , 85 , 55 , 255 , 254. . 

4 DATA 60,126,219,255.102,126 
, 36 , 102 , 60 , 126 , 25S , 255 . 126 , 126 , 3 

6 . 102: LET hS=0 

5 GO SUB 3000 

S BORDER 1. PRPER ?! INK 0: C 

US 

9 LET b=5: LET S C =0 

25 INPUT "Di fficuit.ee 1 1-10) *»j fc 

IF IH OR kUB THEN GO TO 25 

26 input iL Es paces •ntra t* bul 
dings (0-3) "i r \ LET r = r + i: if r < l 

OR r >4 THEN GO TO 26 

27 > LET * = K +2: BRIGHT 1 
30 FOR f =4. TO 26 STEP r 
40 LET i=RNDfl8.» FOR u=21 TO 
I STEP -il PRINT RT fljf £*«¥*; NE 
XT g ! PRINT RT 9 , f , CHRfc ( 145 +RND 
•LI 

50 NEXT f 

51 FOR HO TO 31: PRINT RT 21. 
X , INK 3>i ■'■)■• : NEXT X 

52 BRIGHT 
55 LET y=l 

B7 INK 0. PRINT RT 0,0; BRIGHT 

B;"Score=";sc,RT 0,22, bj" Miss i 
Les " ; RT 0,10;"scor*.ft = "jh* 

SB INK 1: POKE 22562,56 

60 FOR X=0 TO 30 

64 PRINT RT y , X : "*»" ; IF y =20 
RND x=30 THEN GO TO 2500 

66 LET l* = INKEY*: IF I * ( > " " TH 
EN GO TO 500 

67 GO SUB 1000 
70>PRINT RT y,x;" " 
60 NEXT X 

S5 print rt y,x;" " 

90 LET y=y+l GO TO 60 

500 IF L«="b" THEN GO TO 600 

610 IF L*b-b" THEN GO TO 520 

GIB QO TO 70 

520 LET b=b-l: IF b<=-l THEN LE 
T b=0; GO TO 67 

522 PRINT RT 0,22; b," Missi Las" 

523 FOR »=x+2 TO x +6 

525 IF »)=31 THEN GO TO 70 

526 LET j=ATTR (y,»): IF J <>56 
THEN PRINT RT y , « ; " " : GO TO 70 

527 PRINT RT y , •» ; INK Ij -*•"* 1 BE 
EP .05,5: PRINT RT y >n; " NEXT 

■ 

540 GO TO 64 

600 LET e=X: LET f=y+l 

610 IF RTTR (f,€) <>56 THEN GO T 




640 GO TO 610 

700 FOR g=l TO 6 

710 GO SUB 2000 

711 IF f=21 THEN OO TO 70 

712 LET SC=ICU: PRINT RT , 22 S 



a, "5c 



is* i 

714 PRINT RT 

715 NEXT 9 
?16 PRINT RT f-l,e, BRIGHT 1, I 

72©' GO TO 70 
1000 LET i.=RTTR (y,x+2). IF L =55 

OR 1=57 OR 1=58 THEN RETURN 
1010 RESTORE 73: FOR f=l TO 11 
REP.D a,b: BEEP i,b: NEXT I: DATA 

-35,-1, .3,-1, .1,-1, .4,-1, .25,2, 

:M5^-i jl *" l5 '" 1 '- a5 '- 1 '- 15 '- a 

1011>FOR f-1 TO 3: FDRg.B TO 7; 

INK g : PRINT RT y , x ; ••#»" : BEEP 
. 3- t f /lft) , -9-10: NEXT 9 NEXT f 
1020 INK 6: PRPER 0: CLS : PRINT 

"Uo t re score " ; sc; " points.": I 

F SOhS THEN CO TO 4000 

1030 PRINT appuyez ENTER pou 

P continuer": PPUSE O: GO to O 

2000 PRINT RT y,X,-' LET X =X + 1 

: PRINT RT y,x; "■■•': IF >;=31 THE 

N PRINT RT y,x;" •' LET >! -0 1 LE 



002 



3002 GO SUB 1000 

2005 IF N21 THEN RETURN 

2010 PRINT RT f,e,"»" BEEP . 02 , 

1 PRINT RT f , e ; INK 0, " •* LET 

f = f +1 

2030 RETURN 

SSae PRINT RT 20 , 30, " PRINT 

pt 20 ,0; -ea- 

2S10>FOR f =1 TO ISO; PRINT RT 20 
, 4; "ft" . RT 20, 4; "•" NEXT f . BORD 
ER 1 

2520 FOR 1=1 TO 2 BEEP .2,1: BE 
EP .1,1: BEEP . 15 , 1 : BEEP . 25 , 5 : 

BEEP .1,1: BEEP .4,5. PRUSE 2S 

NEXT f 
2530 CLS : PRINT RT 0,1. FLASH 1 
, INK 6, PAPER 0,"L'E 11' P I H R 

T T fi U E I " 
2540 LET UaBlj FOR f =0 TO 30: BO 
RDER RND*6: LET y =y -SI/JO. PRINT 

RT y , f , "fii" : BEEP (31- f i /30B , -1 
0: PRINT RT y,fj" ": NEXT f: PR 
INT RT y , f ; " " 

5541 FOR f *0 TO 30: PRINT RT 0,f 
iW'l BEEP .05,10: PRINT RT , f 
; '" "1 NEXT f 
2S45 INK PRPER 7 
25S0 CLS 

2555 LET t. = fc - 1 : IF k =0 THEN LET 
%=1 

3556 >LET b=S 

2560 BRIGHT 1: GO TO 30 
3000 FOR f =0 TO 7 STEP 2. POKE U 
SR "■"+',2SB: POKE USR "■"frtt.l 
70. NEXT f 




3002 FOR f=0 TO 71; RERD * : POKE 
USR ■> " *■( , a NEXT f 

J0Q5 let .1 s^ wm^m^^m^^mm 

3006 LET b« = " Ht*NEUTRONt#" 

3009 BORDER 1. INK 6 PRPER 0: C 
LS 

3010 FOR f=9 TO 11. PRINT RT f,l 
0, a*: NEXT f 

3020 FOP b =0 TO 15: PRINT RT S,0 

3025 IF I -9 OR 3=11 THEN BEEP .5 
.5: FOR r =2 TO 31: PRINT RT S,f; 

*" : BEEP .02, 8: PRINT RT S , f ; " 

■ NEXT f 
3030>IF S=10 THEN BEEP .5,10: FO 
R f =2 TO 30: PRINT RT S,(;>": I 
F f>10 AND f (22 THEN PRINT RT 10 

' . b« 1 ' -10) 
3035 IF S=10 THEN BEEP .02,10: N 
EXT f 

3045 PRINT RT S,0;" 
3060 NEXT S 
3070 FOR 9=1 TO 8 FOR f =0 TO 7: 

PRINT AT 13, 15; INK f ; "*ffii>" , BEE 
P .02, f; NEXT f: NEXT 9 

3090 PRINT RT 21,2; "Rppuyez ENTE 
R pour continuer.": if QWeVIo" 
" THEN GO TO 3093: PAUSE 50*. BOR 
DER RND#7: GO TO 3090 

3091 PAUSE 50: BORDER RND *7 : GO 
TO 3090 

3095 CLS 

3100 PRINT "Pour gagner.vous d«v 



3120 PRINT 



rez ^u'uri unabit 

vous reussisez v 
ir* le plein sans 
r isqui . " 

3130 PRINT 

par t i r pour 

vi Lie." 
3140 PRINT -"Uous pouvez choisir 

voire niveau de difficulte." 

3150 PRINT 

3160 

3161 INK 4 : PRINT ' "TOOCheZ 'b'BO 

MBC. " PRINT "TouchIZ *■ " MISSILES 

3165 PRINT RT 21,12; "Bonne chanc 
£ I ENTER) " 

3170 IF INKEY*-:>"" THEN GO TO 31 
75 

3171 PRUSE S0: BORDER RND*7: CO 
TO 3170 

3180 RETURN _ _ 

H10B FOR g=l TO 3: FOR F«-5 TO_B 

BEEP . 0S,f. NEXT f: FOR f «5 TO 

-5 STEP -1 BEEP . 05 , f NEXT f : 

NEXT 9 
4010 PRINT ' "RECORS ! ! I " LET 

hs»iC GO TO 1030 



* 



Surte de la page 6 



STARTREK 



1560 PRlNrTHB(24)' ZONE DE COHBRT 

1562 PRINTCM'L'CCr A" j 

1564 PSlNTTftBtZS^'CONDITION ROUGE' :IFS>2 

00T HEN 1596 

1580 PR]NTTABI19)'ECRflNS OfiNGERELiSEHENT 

9AS 

1590 FOR]=1T03:KC!, 1 )=0 :Kt I , 2)=0 :NEXT 

16B0 FOR]=IIO3i«tl,3)=0:NEXT:O«=Z*'?«'?4 

^^t*^*■>lt*it<^LEF^tt.^^, 1?) 

16B0 M = ■'<«>" :Z1=S1 iZ2=S2:GOSUB86?0:|FK3 

(1THEN1BZ0 

1720 FORl = lTOK3iGOSUBa590:fl*= ,, tK»":21=Ri 

:Z2=R2 

1780 GOSUB8B70;KCli 1)=R1 :KC I , 2J=R2 :KC 1 .3 

1=S9*t.5+RN0m):NEXT 

1B20 IFB3<1THENI9]0 

18B0 GOSUB9590:fl*=' >!<" :Z1=R1 :B4=R1 :?2=R 

2:B5=R2:GOSUBB670 

1910 FORi=lTOS3:GOSUBB590:fl«=" * ":21-R1 

18242 :G0SUB867B iNEXT 

I960 GOSUB6430:GETI5t 

1990 CLS:IFS^E>10THENIFE>10ORD[7)=0THEN2 



2020 PRINfiPRINT" **"CC»' 

R Ff^TALE■'CC»■'H , CC«"B**" 
2022 PRINT :PRINT"Uou« wnd 



2035 PRlNT-r 
2048 PRlNT'r 



"CC« 'EERREU 



2045 PRINT 1 U sai.e <Iet Prepu.seuri. 
2050 GOTOB220 
2060 CLS=PRINTDH» 

2062 PRIMTCCt°J"CC«"F"i 

2064 PRINTTftB[27J'C0nnfiNDE i 

2066 INPUT0»:PR1NTDH«:CLS 

2080 F0RJ = lT09:IFLEFT«Cfi«,3]OniD«[0M 

*I-2,33THEN2160 

2140 ONIGOTO2300, 1 9B8, 4000, 4260, 4 700, I 

0,5690,7290,6270 

2160 NEXT:PRINT"Entrtz unt d*i Cc 

2165 PRINT 

2183 PRINTCC«"H"CCi"fiNfiU'CC* i 8tRo l .t* 

RINT 

2190 PRINTCC*"H'CC»'-ftSRS"Ct:*"BtDeli 

a court* rj.itanct)" :PRINT 
2200 PRINTrrt-H'TCt-ftLRS- CCi'BlDrli 

a longue d. stance)" :PR1NT 




2210 PRINTCC*' H' CC«'flPHfl"CC«"BtT.T des p 

■uirO" SPRINT 

2220 PRINTCCt'H'CCf'RTOR'CCt'BCTir des t 

orp!tl*« pholonique«)-:PRIN 

T 

2230 PR1NTCC*" H"CC*"flSHE' CC*"BtAu9inente( 

ou diniinutr 
2235 PR[NTSPCf4)-t'«nerg . e del •com)": 
PRINT 
2240 PRINTCCt'H' CCS-flDflrl' CC«"BCPour iuo: 

2245 PRINTSPCt4)"du conltole d'«v«ri*i)" 

=PRINT 

2250 PRINTCC« , H"CC«"flCOF1"CC* l, B[Pour appa 

Ler la Librair |«- 

2255 PRINTSPC[4)"0rd,nal#ur)":PRINT 

2260 PRlNTCCa'H'CCt'ftXXX' CC*"BCPour demi 

s«ionn«r)":G£TI5«:GOTO1990 

2308 INPUT'Roule tl-9) " iCl : 1FC1=9THENC 1 

^1 

2318 IFCl> = lflNDCl<:9TMEN2350 

2330 PRINT :PR]NTrC«"H"CC«' E" i 

2335 PRINTTflBC21)'LT. SULU REND COnPTE 

2340 PRINT :PR]NT'-'Erreur dans les dnnnee 

t NflU, CDT'":GETI5«:GDT0199 



2350 X« = '8":]FDtl)<0^HeNX• = "0.2 , 

2360 PRINT' FftCTEUR iJfiRP [0-';xt; )';:1NP 

JTU 1 : | FDC 1 ) <0ANDW 1 > . 2Tt-£N24 

'3 

23B0 lFUl>9flNDWK^BTHEN2490 

2390 IFUl=0Th'EN1990 

2420 PRINTCCa'H'CCfF" ; 

2425 PRINTTftBt IB)' L' INGENIEUR EN CHEF SC 



2435 PRINT' WftRP ■ CX.r *V ;klCC«'B!' : &€ T 1 5« : 

GO TO 1 990 

2478 PRINT :PRINICC«'LTr« A' i 

2475 PRINTTflB(20)-«UflHI£ DE HOIEURS UrtRB 

2480 PRINT'UITESSE flflX] -CCt'CuflRP 0.2' 

2485 GET15*:GOTO1990 

2498 N=INTlU]*a*.5):IFE-N)-aiHEN2590 

2500 PRIHTCCt"H"CCt"E" i 

2505 PRINTTflBC22)' SflLLE DES nFlCKINES 

2510 PRINTiPRlNT'Enera,* d , spon i b , e' tri' 

^CC«- UlNSUFFlSftNTE 

2515 PRINT'bojt manoeuj-et a MfWP"CC*"E" 

2538 IFS<N-EOROC?)<0TMENGET]5*:GQTO)99e 
2550 PRINT :PR|NTCC« H CC«'E' I 
2555 PRlNTrfiBC18)'SP.LLE CONTROLS DEFLECT 



EURS 

2556 PRINTCC»'H'CC«"E' ; 

2558 PRINTTflBC25)"REN0 COrlPTE I 

2560 PRINT :PRINTCC»'H' CCf'fi" ;SCC«"BUn I' 



25B5 PRINT'. 



»ll< 



2570 GETI5«:GOTO1990 

2590 FOR I = 1 T0K3 : 1 PKC 1 , 3 ) -0THEN2708 

2618 fi* = " ' :21=KtI,l):a2-r;(I,2):G0SUB8 

678 :GOSUBB590 

2668 KCI, 1)=J1 :KCI,2]=22:fl« = "»Kf ' :G0SUBB 

670 

2700 NEXT:GDSUB6000:Q1=0:D6=U1:IFU1>=1TH 

END6=1 

2770 FORI^lTOB:[FDCn>=8THEN2880 

2?90 DtI)=DCI)'Q6:IF0C! )>-. IflNDDEl X8THE 

HOC])— . 1 :G0TO28B8 

2800 IFDUX0THEN2B80 

2810 IFDlOlTMENDl'l JPRJNT'CONTROLE O'ftU 

ARIES RENO COHPTE 

2840 PRINTTPBC23) ; :R] = 1 :GO5U88790 :PRINTG 

2*:PRINT"Reparal .on* term in 

2880 NEXT:1FRNDI13>.2TMEN3870 
-2910 ftl=FNRCn :lFRND[n> = .6THEN38aa 
2930 DCRl)=DtRl)-tRNDt) )*5t[) 
2948 PRINTCC«'K'CC«"E" : 

2958 PRINTTflB[I6)"CONTR0LE O'flUrlRlES REN 
COrlPTE 

2368 GOSua9790:PRlNTCC*'H'XC*' ft" |Q2«|CCi 
XENDOnnftGE" :PRINT :GOTO3870 
3000 □CRlJ=D[R])*RND(U*3il :PRINTCC«"H C 
C«"E' ; 

3018 PRINTTftBt 16)' CONTROLS D'WJflRIES REN 
C0I1PTE 

3030 GOSUBB790:PRINTCC«'H' CCf «" ; 
3840 PRJNTG2*;r:C* > CReparal :ons avancent. 



387B f 



iZHINTrSl) :Z2^INIfS2) :G0SU 



3110 xi«ctci,i j*cctci + i, i)-crci, i i)*(ci- 

INTCCl )) :X=S1 :T=S2 

3140 X2=C[C1,2]-CC[C1*1,2)-C[C1,2))*CC1- 

INTtCl )):Q4^Q1 :Q5 = 02 

3170 FORI=1TON:S1=S1'X1 :S2-S2*X2 ! 1FSK10 

RSl>=9ORS2<lORS2>=9TeEN3508 

324B SB=INT(Sn*24TlNTfS2)i3-26:!FnlD*fQ 

*,S9,2)=' TMEN3380 

3320 Sl=JNTfSl-Xl):S2=INrtS2-X2) 

3330 PRINT :PRINT' P1o*.*urt UARPS arretei d 

J350 PRINTCCi-H-CM-E-jSUCM-B, "CCfE-J 

S2;CC*"Bcouse 

3355 PRINT' TIPiLIUAlSE NOUIGATION" :GOTO3370 

336B HEXTi:Sl-INTtSlJ«S2«INTCS2J 

3378 «• = ' («>' :21-iNTfSl) : 22 = I NT t Si J tGOSU 

9S670:GOSUB3910:T8=1 

3438 IFWK1THENT8 = . l*INT(10«yl) 

3450 T ■-- ■TB:i-T)T0.T91H£N6220 

3480 G0T019S8 

3500 n=e*Q]-X-N*Xl :i=8«02'T-n*X2:01 = 1NI( 



X''8):02=]NT:T'a) 

3550 Sl = [NTtx-Ql*9):S2--!NTtr-02«8):]FSl = 
BTHENJl^Ol-l :S1=B Z 

3590 lFS2=0TfENO2=O2-l :S2=8 Z 

3620 X5=B:|FQK1TKENX5M :01=1JS1=1 

3670 1F01>6TNENX5-1 ;Qi^a-.si^a 

3710 ]F02<1THENX5=1 ;Q2^1 :S2'I 

3750 ]FQ2>BTMENX5^1 :Q2=8:S2-8 

3790 !FX5=0Tr<EN3960 ■ 

3800 PRINT :PRIN1CC* H'CC«E' i 

3805 PRINT-AB;i7)' _T. JHJRfl REND COnPTE jCB 

nESSflGE - 

3810 PRINTCCt'-H 1 CCf E' 1 SI 

3815 PRlNTIftBtl6)' COnnflNDEnENt FlOIIE SI 
ELLOIRE 

3816 PRINT:PRJNT' 1jtor.ssl.on IraneriiT 

3818 PRINT' est ' CC«' L' CC«' "VEXPRESSEflENT R 

EFUSEE. ■ 

3820 PRINT :PRINT:PR[NT* COUPE? UOS H 

0TEURS":GET]5* ■ 

3830 PRINTCC*' M 1 CC* E' i 

3932 PRINTTfl8C20)' 1NGENIEUR EN CPEF SCOT 

3834 PR1NTCC«"H' CC<'E" ; ■ 

3836 PRINTTABC25]"REND COMPTE ! :PR1NI 

3838 PRINT' noteurs U^RPS cOLPet portion 

3840 PRINT' lecleur' CCI'F'Sl ;CC«"B," iCC«" 

F' ■:S2JCC»"8' ; 

3842 PRINT'du quadranfCC*"C" ;0I ;CC«'B," 

CC* r C ;Q2 ■ 

3850 |FT>T0.T9TPEN6220 ■ 

3860 IF9*Q1-Q2=8*Q4-Q5TPEN3370 

3870 T = T-1 :GOSUB3910:GOTO1328 

3918 £^E-N-10:IFE>^8TMENRETURN 

3930 PRlNT:PRINT'CorrtroIe eeran* lournit 

3935 PRINTCC*' M"CC*' GNECESSA1RE P0u> ach Z 

3940 S=St-E:E=8:IFS<=0Tr1ENS=0 ■ 

3988 RETURN ■ 

4000 1FOC3X0THEN4070 ■ 

4030 CLSJPRINTDH* 

■5032 PRINTCC*' J'CCf EEXPLORflTION GRANDE ■ 

DISTANCE" :PRINT0P* 

1034 PRINT :PRINT' DU OUflDRflNT" CC«' rt ;01 JC 

rt'B, "CW'ft" ;Q2 ■ 

«040 01*=" " :PRINT0)< ~ 

«060 F0RI=0I-IT0Q]*1 :N( 1 J=-l :Nt2J=-2=N(3 ■ 

l=-3iF0RJ=02-IT002*l ■ 

4065 G0TO4128 ■ 

■4078 PRINT :PRiNT"!DETf:CTEURS A lONGUE POR - 

r EE ; 

4875 PRINTCC*' L"CC*"A fORS DE SERUICE' Z 

=6ETI5* ■ 

aaae gotoi998 - 

4128 1FJ>BRNDI<9PNDJ>8PNDj<9Th£NNU-02*2 ■ 

)=Gf I, J) !ZtI(.J)-G(IiJ] ■ 
4188 NEXTj:F0RL=lT03:PRINT ■ ;:IFNCLJ<8 

TfENPRINT **« j:GOT04238 r" 

4218 PRlNTRlGHT»(STR*CN[L)>ia08),3)' _Z 

Suite page 14 =- 



I KING-KONG 



Le celebre jeu de cafe avec echelles, ascenseurs et sauts. 
Un peu moins romantique peut-etre : au lieu d'aller deli- 
vrer votre dulcinee aux prises avec le grand singe, il vous 
faut decrocher des dollars ! 



Bernard GOURC 



A REM 

6 REM 

10 PRINT RT 

12 PRINT RT _ 
CROCHCR LES ""M* 

14 PRINT "'" 

15 PRINT 

16 PRINT 
T 30 POIMT'5 

IT PRINT 

IB PRINT XHRO 

UP.UT 1 POINT" 

19 PRINT 

2 PRINT 

22 PRINT 

24 PRINT 

25 PRINT 
3IJT" 

SB PRIM! 

2 7 PRINT 

23 PRINT 
29 PRINT 

~ 3UR 




S POINT 



DERNIER 



POUR GflUCHE" 
POUR L'ROITE" 
POUR HfiUT OU 



30 PRINT 
" HONTER 



18 . 10 . ■• -UOUS POUUE 
flUX ECHELLES MfllS PAS 
SAUTER UNEFOI5 RRRI UE EN H AUT'- 

3 1 PRINT AT 21.0: "ESHB" 

32 IF INKEYt="" THEN GOTO 32 

45 CLS 

5 LET fl$="2fiQC40 112500 1922287 
9; n600192 = lE?9ll270019251C7911J 
flS0192220?91129B1192218791 1E5001 
9221fl793E053226792fi0C40116E02192 
^22793E0 1322479CD9F772fllfl79360B3 
fl2479FE012S0C2FI2279237EFEl7CRD37 
7130R2fl22793B7EFE17CflD3772fllfl79e 
60flCD7B7eCDB97B0605CD9B76CD89780 
60 50078780089 76050500957800697 00 
5e7CD7B782 12140346E26067EFEE5380 
52R1C793B172R1879237EFE0226300E0 
22R1879114200R7ED52221879CD1E761 
12G00 19CD1E76112B0019CO1E76CDBR7 
70D20DD2R1B79U4200R7ED52162E0E0 
22R1879114.2" 

52 LET B$="0019221B79CDiC76111 
700fi7ED52CO4C78111700R7EDS2CD4C7 
3CDBR770D20DE2R 1879 114 200 1922 187 
9 3E02322fl79CD9F77CDC777CDBB0a*4.4. 
D5 1U281BCOBD077EFE3CCR7176FE3FC 
^CB76FE29CRE4.76FE26CR1777FE1CCB3 
R2R793D20COC371752R227911*200R7E 
;-527EFE0R262CFE8DCR4R77FEB3a8eBl 
12 10B1936S91936003R2479FE012B0D2 
H2279237ErE17CCSe77C39B752R22792 
B18FlEDSa2222791919CDRE773R2479F 
?912§eB3EJB 13224 79C3BB763E0018F62 
R2279 1 12 1B0 197EFE0fiC26876R7ED5aC 
DRE77 118400 19222379 1SC-12R2279237 
EFE17CRD377" 



Z*«* 




5 4 LET C»:"237EFEBQCfi667622227 
92B2BCORE77CD9F771121B0 197EFE0BC 
3637623237EFE00CRF977R7EC5218DE2 
H22792B7EFE17CRD3772B7EFEB0CR6B7 
' .- -^_- : i?323CDfiE77CD9F77112100l97 
eFE00C26B762B2B7EFE00CRF977R7ED5 
2 i6DE360DE5060RCDBB7710FBE136003 
R26793D260C3226792R2279CDRE77C36 
2753E053226790614CD667710FB2R227 
^CC-RE772R2B790605366D232310FR18D 
ri:RlE797EFE25SS063C77CDBR77C9361 
~5 7EFE94C81BED2R227936B9112100R 
';.['52 368B 19C936O0 1 12 1O0R7ED52360 
ai9C9ES263C2E322D20FD2520F6ElC9C 
5060R0E640D" 

56 LET D| = ' - 20FI>10F9C1C92R22790 
60RCD9F77CDBR77CDRE77CDBR7710F22 
R20797EFE2626a6FEB0CB2BlBF53600C 
362752R2279112100R7ED52360019197 
EFE00200C3BBDCOBR773696CDBR7718E 
8R7ED52360018CS060R7EFE6B281036e 
0H4200R7ED5277114 1001910ECC9573 
E003224797RES2R2279114200R7ED522 
22279E11BD9060R7EFE8B281036001U 
2a0 1977114300fl7ED5210ECC9573E813 
224797RE52B227911420019222279E11 
QC'62B2B7EFE1720073B002333772BaBl 
0F0C911B400R7ED527EFE17C03600197 
7R7ED52C923S37EFE17200736002BHB7 
7232310F0C9" 

60 FOR F=l TO 20 

62 PRINT AT 10,6: "JE PREPARE L 
E JEU" 

64 NEXT F 
66 FRST 

SB LET X=30000 

90 FDR F=l TO LEN R*-l STEP S 
94 POKE X, 16* CODE fl» (F) tCODE Fi 
¥ tF + 1) -476 

96 POKE X+223 . 16*CODE B% (F) +00 
DE B$ (F + l) -476 

96 POKE X+4 46, 16#CODE CftFt tCO 
OE C* (F + l) -476 

100 POKE XtB69 _, 16*CODE D* (F) tCO 
DE D* (F + l) -476 
102 LET XiXfl 
104 NEXT F 
106 SLOU 
110 CLS 

120 PRINT "UOUS AUEZ LE CMOIX 
ENTRE 5 UITE55E5 DE 
""1"" RAP IDE fl""5" '■ LENT" 
130 PRINT 

140 PRINT -ENTRE2 Lfl UITESSE CH 
OISIE" 

145 INPUT I 

150 IF I >5 OR I <1 THEN GOTO 140 

154 LET 1= CI+5J *10 

1S6 POKE 30665 . I 

IBS CLS 



204. 
206 


NEXT F 

PRINT AT 


0.0. "1 


210 PRINT 

■ "..AT B.5; 

212 PRINT 




a . i . ] 


' 




r •- 

214 

m- 

216 


PRINT 
PRINT 


m 


16,5, 
20 . 1 . 



218 PRINT RT 11 . 
**■»'•.: RT 13, 14. -■■«*■"■ . RT 17'. 
220 FOR F=l TO 4 
222 PRINT AT F .20; 
224 NEXT F 
226 PRINT RT 1,22, 

'228'' PRINT RT 1 , 4 ; "B B B E B" 
11,27: -J"; RT 19, " 
230 LET M«~ 
232 FOR F=l 
234 PRINT RT F +4 , 26 . M" ; , , {. ( 




J AT 1.. 19j 



i AT 4, 20; 



, AT 5, 27, '■ 
, RT 9, 14; 



240 PRINT AT 6 .26'. 

^- ; RT 13 .6 : ■•^" ,; - 

244 SLOU' 

245 LETT K = USR 

250 PRINT RT 20 . 1: ■'H 

251 PRINT RT 21,4': 

2S4 IF INKEY$="0" THEN GOtO 254 

256 IF INKEY$="" THEN GOTO 256 

260 CLS 

264 PRINT "UNE AUTRE PART IE *» I 
G^NJ " 

256 IF INKEY*=" 

268 IF INKEY$="D" 

999 STOP 

2000 SAUE "KING-KON 

2010 RUN 



202 PRINT AT F . 



21 



! AT F , 3 1 ; 



II m 


anquail 10 lignes a !a tin du lis- 


tine 


Bataille navale dans Hebdo- 


giciel n°10. 


2740 




3758 


PRINT RT 0, I + lj I 


2760 


3770 


NEXT I 


2760 


FOR 1=1 TO 10 


2790 


PRINT ST 0,1+16; I 


2800 




2S10 




2O20 




2030 


RETURN 



IV /I AC 


n 


r 


EDIWII 


\h 


in 
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■ STARTRFI 


r 


IVIAw 


> 1 


1 


tZKIVII 


IP 


iv 


" 


1230 NEXTHPRINT":' :PRINT01« :NEXTI :GET IS 
*:GOTO1990 


\ 














Un mastermind ?oui 


mais 


pas 


n'importe lequel : degre de 




~\( a o 


4260 IFDCmOTHENPRINT' PnftSRES H0R5 SE 
SUICE' =GET15«:GOTO1990 
4205 IFK3>3THEN4330 




difficulty variable, module 


X fonction et code-barre 


Si 








vous avez la flemme 


de taper 


ce listing, promenez votre 




& °.r. " 


42?e print :printcc* H 1 ccc G' ; 




stylo optique dans les marges de I'Hebdo ! 






^ ) 7\ ° 


3272 PRJNTlflBUEO' ^ESPONSS-BLc SrlcNUFIQ 




Merci monsieur HP 










Cr^i 


^C^, PI A 40 


UE SPOCK 

4274 PR]M:PRIM' 'Ptti de v«-si!>u» ennem 

4290 PRINT'dane ce quadrant' :GETI5« :&0I Q 










Pierre- Andre LOTHE 




"^firYnrM ^sfitfv 


1990 

4330 IFDIBXaTHENPRlNTCC*' L r_C»'TWUFiRI£ 


















OROINMEUR DinlNJE PREC1SID 


















^350 PRiN^PRINTCCt'H'CCS'TPHASERS wrou 




28:35 85.12 






29 XE6 16 




58 STO 18 


87 "F ■ 


4380 PR1S7 'Eneij.e d.sponible " r CC»'E"El 
rCI'BunilH 




81H.BL -nri- 






38 STO IND 89 




59 STO 11 


88 BRCL 12 


4370 PRINitlNPUINombrn i'uni'.n pom 1 




82 FIX 8 






31 POSP 




68 an 


89 GTO 15 


G ■. ;r ■ ;«:]FX<=0TmEN:990 
4400 IFE-«<0IHEN4360 




83 CF 29 






32 -1 




61 ORCL 13 


98«LBL 18 


44J0 E=E-^:IFOC7](0TMENX=X*RNDCI ) 




84 15 






33 X»Y? 




62«LBL 11 


91 "CflCNE EN • 


1450 H1=INirX'K3):PORi=lTC3:lFKCI,3J<^0T 
HEN4670 




85 PSIZE 






34 GTO 89 




63 RCL IND 89 


92 RRCL 12 


4480 KefNTt(Hl-'FNOt0])*tHHDtn*2]]!|FM>. 




86 "P8 LOTHE, HP4P 






35 RCL INI 89 




64 POSH 


93 "F COUPS." 


15*KCI.3)THEN4530 

*500 PRINT TBRINTCC*' 1- 'CCt'CSENSEURS' CCt 




87 RCL 86 






36 XTOfl 




65 STO 88 


94 fiOFF 


*: CC«' B' ; 




88 Pt 






37 ISG 89 




66 -1 


95 BEEP 


4505 PRINT' : pat d'auar:et sur ennert. 




89 t 






38 GTO 89 




67 X=V 


96 PROMPT 


"510 PRINT"«n"CCt E■■<tl,n;CC^'■^,'■CC* , £ , ■ 
<C!,2)'UflIT200:GQTO4670 




18 FRC 






39 (1ST0 14 




68 GTO 13 


97 GTO 88 


4530 KCI,3)=KCI,3)-h:PRINI:PRINTCC«'h CC 




11 STO 86 






48 8 




69 RCL 88 


98«LBL 16 


f"E-M; 

4532 PRINTCCfBun vet frappant \t KL1NGD 




12»LBL 88 






41 STO 12 




78 RCL 89 


99 RCL 86 


N 




13 -NB COL='- 






42 -n VOUS ..." 




71 INT 


168 9821 


4534 PRIST'dj ttcKuT-CCI' «"«CI, 1);CC»'B 
. "CC»"ft"Kt),2J 




14 PROMPT 






43«LBL 15 




72 X=Y? 


iei • 


4550 IFKCi,3K''0THENPRIHICC« , L , CC«'n»*t 




15 1 






44 RON 




73 GTO 12 


182 .211327 


KL.1NG0N OETRUIT ***' :GOTO 




16 - 






45 TONE 4 




74 1 


183 t 


4560 PRINT :PRINT [ttnteu'l montr.nt <, u ' , 




17 1 E3 






46 PROMPT 




75 ST+ 11 


184 FRC 


. ten. 




18 / 






47 NSTO 13 




76 GTO 13 


185 STO 86 


4562 PRlNTCC*"H'CC<'C'KCI,3)iCC»"BLr.Uei 
)" :GEri5t:GQTO4B70 




19 STO 87 






48 1 




77»LBL 12 


186 RCL 88 


45B0 K3'K3-1 =K9=K9-1 :J] »K( 1 , 1J ^2=KC 1 . 2 J 




28 STO 89 






49 ST+ 12 




78 1 


187 * 


^«=' :GOSUBB670 

4650 KCJ,3J=0:G(Q1,Q2J*GCQ1,Q2)-100 




21 -NB LFT=>" 






58 RCL 13 




79 ST* 18 


188 65 


4860 2(QI.Q2)=G(OI,O2):IFK9<=0THEN63?0 




22 PROMPT 






51 RCL 14 




88«L6L 13 


189 * 


4670 NEXT! :&OSU86000:GETI5t:GOTO1990 




23 STO 88 






52 X=Y? 




81 ISG 89 


119 INT 


4700 IFP<=0TMENPRInT :PRInTCC*'L10RPIlL£S 
PhDTONIQUES toutes DEFENSE 




24 "UN INSTANT" 






53 GTO 18 




82 GTO 11 


111 .END. ■ 


ES'' iGETIS«:GOTOI990 




25 OVIEU 






54 flVIEU 




83 "P - 


- . «•«, AA 


4730 ]FDC5)<0TMENPRINTCC» , LIU8ES PHOTONI 
OUES NON QPERfiTiONNELS' :GET 




26 TONE 3 






55 RCL 87 




84 ORCL 18 


1-1 D £x ■ 


I5t :GOTOI990 




27 CLA 






56 STO 89 




85 -F,- 


rlr ■*■ 


4760 iNpUT'Rojte Torpil;« (1-9) "" 1C1 HFC 
]-9THENCl=] 




28»LBL 89 






57 8 




86 RRCL 11 


■ *»™ 
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CASINO 



Le jeii de la "Boule" des casinos. Vous pouvez jouer sur un 
numero de 1 a 9, sur pair ou impair (P ou I) ou surles series 
del a4etde6a9(AouB). 



Maxime TANGUY 



CN 



## 




1 CLS:CLEAR 500 

2 CONSOLEO.M.O 

10 "■ LA BOULE " 

20 LOCATE 2.0 

30 PRINT"* LA BOULE ** 

10 LOCATE 0.2 

50 PRINT •Nomoro da jauoura-iCONSOLE 3.1.0 

80 AI-INKEYi 

70 IF A»-" THEN ALEA - RNO(I1:GOTO 80 

B0 A - VALIA*] 

00IFA-0ORA>1 THEN LOCATE0.3:PRINT' ":GOTO 80 

02 FOR 1-1 TO A 

91 TTAPED-I00O 

0B NEXT I 

0B CONSOLE0.1.0;CLB:CONSOLE3.1.D 

100 FOR [-1 TO A 

105 CLS:IF TTAPIJl-O THEN TMIStll-0:GOTO 250 

110 LOCATE 0.0:PRINT 'JDUEURM:G05UB 210 

115 IF MIB>0 THEN LOCATE B.0:PRINT" JEU SUR ■ ELSE GOTO 2G0 

120 LOCATE 10.0 



I JEU*-INKEY*:IF JEU«-" THEN ALEA-RNOf 11:G 

I LOCATE I0.0:PRINT JEU« 

1 IF JEU1 > *0* ANO JEU«<*9* THEN GOTO 200 

I IF jeU«-'B- THEN GOTO 200 

I IF JEUi-'A" OR JEU*-"B* THEN GOTO 200 

I IF JEUJi-'P 1 OR JEUe-T THEN GOTO 200 

I GOTO 130 



*MISE 



■:MI8 



IF MIS>TTAP1I1 THEN GOTO 220 

D TMISII]-MIS:RETURN 

Q CON5OLE0.1.0:CLS 

NEXT 1 

LOCATE 0.1 

PRINT "LES JEUX SONT FA1TSVGOSUB 10000 

JEU-INT(RNDM)'IOQ) 

Q JEU- JEU MOO 10 

Q IF JEU - THEN GOTO 280 

IF JEU-5 THEN PAIR-2:AB-2:QOTO 350 



330 IF [JEU MOD 21-0 THEN PAIR-0 ELSE PAIR-1 

310 IF JEU<5 THEN AB-I ELSE AB-0 

350 JEU«-STR«(JEUI:JEU«-MIO«( JEU«-2. 1 1 

300 CLS 

J70 PRINT *Lo numora*.'JEU:"GAGNE":MT-0: GOSUB BOO 

3B0 FOR Z-l TO A 

3BO IF TMISZ1-0 THEN GOTO 500 

100 IFTJEUWZ1-JEU1 THEN GAIN-TMIStZ)*7:DOTO ISO 

110 IF TJEUMZl-'P* AND PAIR-0 THEN GOTO 170 

120 IF TJEUWZJ-TAND PAIR-I THEN GOTO <t70 

130 IF TJEU«Z1-*A* ANO AB-I THEN GOTO 170 

110 IF TJEU*(ZI-"B* AND AB-0 THEN GOTO 170 

ISO TTAP(Z)-TTAP(Z)-TMiazl:DOSUB 510:GOTO 500 

170 GAIN-TM1S(Z]*2 

180 TTAP(Z)-TTAPIZ)*QAIN 

100 GOSUB 710 

500 IF TTAPlZbO THEN MT-MT.I 

510 NEXT Z 

520 IF MT-Q THEN CLS:CLS:LOCATE0.1:PRINT'Au rovoir 

530 GOTO 100 

510 ■" Pordu •* 

550 LOCATED. 0:PRINT -JOUEUR';Z:-PEROU 

500 LOCATE0.2:PRINT'TAPIS : - TTAPIZ) 

570 GOSUB 500 

560 CLS:RETURN 



MO " 



r«n 



800 FOR D-l TO 1100 

510 NEXT D 

020 RETURN 

710 ■" Gogn " 

720 LOCATE0.0:PRINT ■JOUEUR";Z:'GAGNE 

730 LQCATE0.1:PRINT"DAIN :'GAIN 

710 LDCATE0.2:PRINT"TAPIS :'TTAP[ZI 

750 GOSUB BOO 

700 CL5:RETURN 

10000 BD1-" 1Z315B700I2315B7B0 1 2315B7B0 1 231S67BB" 

10010 BO*-5TRING>120." ■)-BD«*STRINGM20." '1 

10O20 FOR I- I TO LEN(BDS) 

10030 LOCATE 0,l:PRINT MIO*(BD«,l. 1.201: 

10050 BEEP 1.1 

10080 NEXT I 

10070 RETURN 



Dans le programme Calendrierdu 
n" 10, les " el § sont a remplacer 
par[et]. 



STARTREK 
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4780 IFC1>=1ANOC1<9THEN4850 

4790 PRINTCCr'H'TCr'E"; 

4792 PRJNTIABU71"ENSEIGNE TCHEK0U REND 

COPPTE, 

4794 PRINT :PRJNT " ' Par apet re. N0N salable 

* COT !'":G£TIS« 

4800 GOTO1990 

4B50 Xl-CtCI, ] J+CCtCl+l, 1 j-ctci,i mcci- 

INT(C1]D,:E=E-2:P=P-1 

4B68 X2=CiCI,21tCCCCltl,21-CCCl,2JJ*CCl- 

IHTCC1)3:X-S1 'T-S2 

4310 PR]NT:PRlNTCC*'H'CC«"GTrajecto.re t 

4928 X-X*X1 :T~Y»X2iX3=INTtX*.5J!Y3=INT(Y 

•.S) 

4960 IFX3<1QRX3>6ORY1<1ORT3>BTHEN5490 

5000 PRlNTCC*"L"CC*'E ,, X3;CC»"H"CCf"B," it 

C«-L ,, CC«"E";T3 

5018 A* = " " :21^X:Z2 = r:GOSUBBB30 

5050 IF23O0TMEN4920 

5060 fl»="+K»":ZI=X:Z2=Y:GOSUB8fl30:lFZ3=0 

THENS2I0 

51 10 PRINT:PRINTCC*"L"CC«"A**» KLINGON 

DETROIT ***" :K3=K3-1 :K9=K9- 

1 

5120 !FK9<=0THEN63?0 

5150 F0RI = ]TQ3:]FX3=KU, l)ANOT3=Kl 1 , 2 ITU 

EN5190 

51B0 NEXTI =1=3 

5190 K(I,31=0:GOTO5438 

5Z10 At=" * ":ZI=X:Z2=Y:GOSUS8830:lFZ3=0 

THEN5280 

5260 PRINTxPRINT'Eloi le en" CC«"E" SX3", "T 

3;CC«"Ba annul* 

5265 PRINT'l'energie lo r P I I 1 e . " :GOSUB600 



5270 GET!5*:GOTOI3S0 

52B0 M-*>!<" :Z1=X:Z2=Y:GOSUB8830:1FZ3=0 

THEN4760 

5330 PRINT :PRINT:PRINT;PRINT 

5335 PR1NTCC*"L"CC*' A**** S1ARBASE DE1R 

'JITE ****' =B3=B3-1 :B9-B9-1 

5368 IFB9>0GRK9>T-TB-T9THEN5400 

5378 PRINT :f>RINT:PRlNT 

537S PR1NTTABC23KCA SUFFIRA COT ! 

53B0 PRINTCCt'M' CC«-AUout eles releve de 



.' CC«"G99-CC»' BST 
:■ mi CC*"ECTGNL 



5382 PRINT-el Co 

ARJO'JRS ce 

5384 PRINT-traus 

S 12'CCrB!! 

5390 GOTO6270 

5400 PRINTiPRINT" COfinANDErLNT FLOTTE ST 

ELlAIRE leuoil 

5402 PRlNT"vQtrc Cati ,«r ft m..si;> 

5404 PRJNTCC*'L"CC*'GCOURl rlARTIALE !!!' 

'00=0 

5430 ZI=*:Z2=Y:A»=" ": &0 SUBS 6 78 

5478 GrQl.Q2)=K3*)00*83*lB«S3:2rQl ,Q2)=-& 

(01,021 

5488 GOSUB6880:GET15«:GO1O]990 

5490 PRINTCC*^"^* 1 A10RP1LLE A nANOJE B 

UT" iGOSUB6B08 

5508 GETI5*:GOTO1990 

5530 1FOC7X0THENPRINT' CONTROLE O'ECRANS 

"CCf'LHORS SERUICE":GETI5«; 
GOTO 1998 

5568 PR1NT:PRINT' Energir d Upon lb L* -"CC 
«"C"E'S 
5570 INPUT'Nnmbie d'unites d'enerale pou 

5590 IFX<80RS=XTHENPRINTCC«' L<"CC*"PECRA 

NS SONS CHANGET1ENT":GET15*: 

GOTO 1990 

55S0 IFX<=EtSlHEN5630 

5600 PRINT :PRINTCCfM'CC«'E"; 

5602 PR]NTTfiB(201' CONTROLE ECRftNS SIGNAL 

E 

5604 PRINT :PRINT'C'esl pa* le treior de 

la Federal. on. 

5610 PRINT :PRIN7Ci:*-L>"CCI"HEc'anB tans 

chonaemenf :GETI5« :G0TOl 990 

5630 E-E'S k:P=X :PRI NUPRIN! CC«"H"CCi"f " 



5634 PRINTCC«"N' CC«"F"i 

5636 PRINTTOB(25r REND COflPTE ! 

5660 PRINT:PRINT"Ecians *•>! «"CCt»E" 1 INT 

FS]CC«"Bun i let 

5BB2 PR]NT".ur vO'.re or dre . * *GE T 15« :GOT0 

1990 

5630 IFD(6)>=0THEN59!0 

5700 PRINT :PRINT" IMPOSSIBLE AVOIR RAPP0R 

T D'AUARIES' :GET15«:JFD0^BT 

HEN1990 

5720 D3=0:FORI = lTOB:lFDtIX0THENO3=D3«. I 

5760 NEXTUFD3=0THENGE1 I5«;GOTO1990 

57B8 PRINT:D3=03«D4:1FD3>=1THEND3=.9 

5B10 PRINTCC«"H"CC«'Ftoehnic lent p'tli a 



5822 PRINTCe*"L"CC» ,, A ,, SPCC10).01*INTU00 

tD31i" Starjours 

5840 INPUT-'Auto- .ioi- v out le plan de iep 

5860 IFLEFT«tA*, 1 1 <>-'0" THEN! 930 
5870 FOHI = IT0B!|FO[ I X0THENDC IJ = 
5890 NEXT:I=T.D3-. 1 
5910 PRINT :PR1NICC« P'CC* 1 CELErtENTS 

AUANC. REPAR.' .-print 

:FORRl = lTOB 

5920 GDSU3B790:PR!NTG2*;LEFT«[Z«,25-LENC 
G2*1J;INTC0CR1 3*1001*. 01 :PR 
INT 

5950 NEXTRI :PRINT : IFD0O8IMEN5720 
.5390 GET15«:GOTO1990 
6e00 1FK3<=0THENRETURN 
6010 IFD8-0TKEN6840 

6020 PR]N-:PR]NT"ENTERPRISE PROTEGF PAR 
ECRANS DE .m STARBASE":RE 
TURN 

6040 FOR 1 = 1 T03 : 1 FKC 1 , 31 <=0TP£N6200 
6060 K=INT[[KlI,3)'FNOCl 1 )*C2*RN0( 1 ) ) ) 
6078 S=S-H:K( l,31=K(I,31^(3»RNOC0); 
6088 PRINT ;PRINTCC«"L"CC*'A'H;CC*'irCC*' 
bllnitet Iroppont I* waxieo 

6H82 PRINTCC*"HENTE«PR1SE venont <Ju lect 
eui"CC*"C-KCI. D","KtI,2J 

6830 US<.<0tHEN6240 

6290 PRJNT;PRINT:1FB9=0THEN6360 

6318 PRINT:PRINT"Lo Federation cherche u 

6312 PRlNT"Commandanl de voiiceau Stella 

6314 PRJNT"une miction aixoiaire — (Ml 



6330 ]FA« = , 0AC"THENPRINTCHR*n?) :CLSiGOT 



00 



I END 



6370 PRINT :PR1NTTAB(1B)"FELICITATI0NS, C 

OMMANOANT! 

6380 'PRINT SPRINT 1 Le dernier crolttur d* 

KLINGON 

63B2 PRINT-menacanl la Federation a at* 

dalruil. ":PRINT 

6400 PRINT'Uotr* taux d'afllcaclt* ttt d 

6402 PRINTCC*"H"CC*"E"il000*CK7/tT-T0]]'' 

2 :GOTO62S0 

6438 F0RI=S1-1T0S1*1 :F0RJ=S2- 1 TOS2»l 

6450 lFINTtI».5)<10RINT(I'.5)>B0RINTCJ.. 

5K10RlNTtJ*.5]>8TMEN6548 

6490 A«-">!<":Z1=J ;Z2=J :G0SLBBB38 : [F23= ! 

THEN65B8 

6540 NEXTJ. I :D0=8:GOTD6650 

65BB D0-] :C»-"BBASSIN".-E=E0:P=P0 

6620 PRINT :PRINT"£crans a zero p 0u r I'en 

tree en ratfoub" :S=0:GOTO672 

a 

6650 IFK3>0THENC*-"O'- :GOTO6720 

6660 C*="R":!FE<E0*. ITHENCt^^'S" 

6720 1FDC2)>=0THEN6?70 

6730 PRINT iPRINT"*** SENSEURS FA1BLE DIS 

TANCE *M' , CC*' , ftH.S":PR!NT:R 

ETURN 

6770 01«-" 

"IPRINT01«:F0RI=1T08 

6820 F0Rj=t I- ! 1*24* IT0C 1-11*24*2 :PRINT" 

;ttJD*C0«, J, 3) ;:NEXTJ 
6830 ON 1GOTO6850, 6988, 6960, 7020. ^078,712 
8,7100,7248 

6850 PRINT- STARJOUR ";1 

NTCTK10J*. 1 ;PR1NT !GOTO7260 
6300 PRINT'' CONOITION " iCC 



«C*:PRINT:GOTO7260 

6960 PRINT" QUADRANT " ;Q 

1" , "Q2 :PRINT :GOTO7260 

7020 PRINT" SECTEUR " ;S 

1","S2:PRINT:GOTO7260 

7070 PRINT" TORP. PHOT0N1OUES "il 

NT[P);PRINT:GOTO7260 

7120 PRINT" ENERGIE IOTALE " i I 

NT(E»S1 :PRINT:GOTO7260 

7180 PRINT" ECRANS ' ;I 

NTtS):PRINT:G0TO726e 

7240 PRINT- KL1NG0NS RESTANTS ";I 

NTtK9):PRIHT 

7260 NEXTI :PRINTO!*:RETURN 

7290 IFDt8X0TH£NPRINTCC*"L"CC*"AORDINAT 

EUR H.S. " :GETI5«:GOTO1990 

7320 INPUT~Ord>nateur OK, attend command 

e " ;n:IFA<0THEN1990 

7350 PRINT :HB=1 :ONA»l GOT 07540, 7900, 8870, 

8500,8150,7400 

7360 PRINT'FONCTIONS DISPONIBLES DANS LI 

BRAIRJE- ORD1NATEUR : 

7370 PRINT;PRINTCC«"H"CC*"E0 ^'CCt'BEnre 

Qlttrement 9a laet . out " :PRIN 

TSPC(4)"eu»ul« 

737" PRINT :PRINTCC«"M"CC«"E1 ="CC*"BRapP 

ort de g ilual ion 

7374 PRINT :PRINTCC«"H"CC«'E2 ="CC*"80ortn 

7376 PRINT :PRINTCC«"H ,, CC*"E3 ="CC*"9Donn 

ex NAU wen Starbatet 

737B PRINT :PRINTCC*"H"CC«"E4 ="CC*"BColc 

oil direct lon'ditlance 

7380 PRINT :PRINrCCf'H"CC«"E5 ="CC«"BCort 

t de la 9«loxl«":PRINT:GOT0 

7320 

7400 H8=0:G5=1 :PRINTSPC( 24 1"LA GALAXIE": 

GOTO7550 

7540 REM 

7542 RET1 

7543 PRINT:PRINTSPCt8)i 

7544 PRINT'ENREG. QR01NATEUR PR 0UAORANT 
7546 PRJNTCC*"H"CC»"E"i01- , ,"02:PRINI 
7550 PRINT" | 2 3 



7560 01i=" 

7570 PRINT01*:F0RI=ITO8:PR!NTI 1 : IFHB=0TH 

EN7740 

7630 F0RJ-1T08:PHINT" " ; : IFZt I , J )=0THE 

NPR INT "***"; ^GOTO7720 

7700 PRINTRlGHT«(STR«[ZtI, J3-10001.3); 

7720 NEXTJ :GO!O7B50 

7740 Z4=l =Z5^i :GOSUB9030 : J0=INTC 15-. 5*LE 

N(G2*)1 :PR1NTTAB(J0JG2«; 

7800 Z5=5:GOSUB9830:J0=INU39-.5*LENCG2* 

J] :PRlNTTABU01G2ii 

5850 PRINT:PRINT0!«:NEXTI :PRINT :GET 15* !S 

TO 1990 

7300 PRINTCC*"H"CC«"ERAPP0RT SITUATION I 

■ :X«=" " : 1FK3> 1 THENX«»"S" 

7940 PRINT"KL[NGON" ;X«;" RESTANT" IX* ;" I 

K9 
7360 PRINT :PRINT"f1i*« Ion doit etre accom 
flie en"CC«"A" ;. I*INTCCT0tt 
9-TMlMl 

7965 PRINTCC*"BStarjour ( 

7970 X*-"S";IFB3<2THENX«=""nFB9<lTHEN80 

10 

7380 PRINT"Lo Federation .ami lent "B9"S 

TARBASE"iX* 

7385 PRINI"dan> la aaiaxle 

7930 GETI5CGOTO5630 

8010 PRlNT"Uotre STUPIDITE voui a I tuit 



BI! 



INT'r 



n'auez plus de STARBASES ! 

8020 GOTO5690 

8070 IFK3<=0THEN4278 

B0B0 X*="":IFK3>1IHENX*='S" 

9090 PRlNTCCt'-H'TCr'AENTERPRISE AUX CR01 

SEURS DE BATAILLE 

8095 PRINTCC*"H"CC«"PKLINGONIENS";X» 

9100 HB=0:FOR!=1TO3:|FK{I.3X=0THEN8480 

6110 W1=K(I,1XX=KCI,2) 

8120 Cl^Sl ;A=S2iGOTO8220 

8150 PRINTiPRlNTCCCH'TM-GCALOJLS DE 01 

RECTION^DISTANCE 

8160 PRINT :PRlNT"UOUS ETES DANS LE 0UA0R 

ANT"CC*'"E -, ;QI","Q2 

8165 PRINT "SECTEUR"CC*"C" 1ST , "S2 

8170 PRINT :PR1NT"S.U.P ENTRE2" i : INPUT " C 

□0RDONNEES IN1T1ALES X,T";C 



8512 PRINT iPRINT SENSEURS NE MONTRENl AU 

CUNE STARBASE 

8514 PRINT'DANS CE QUADRANT. :GETI5*:G0T 

01990 

8590 R1=FNRU 1 :R2=FNRCI 1 :A«^" ' -l]*Ri : 

<2=R2 :GOSUB8B30: IFZ3^8THEN8 

S90 

8608 RETURN 

8670 SB=1NTIZ2-.51*3*]NTCZ1-.5)*24»1 

8675 IFLENlA*X>3THENPRlNTCC*"L'CC*"AERR 

EUR": STOP 

8680 IFS8=1THENQ*=A**RIGHT*CQ*, 1B3XRETU 

RN 

8630 IFS8=190THENQ* = LEFT*(Q*, I89HACREI 

URN 

8700 Q*=LEFT*10*,S8-1 1 'A*.R1GHT*TQ«, 190- 

S81 : RE TURN 

8730 0NR1G0TO8732, 8794,6796,8739, 6800,88 

02,9604,6806 

8732 G2*= , nOTEURS UARP" ;RETURN 

8794 G2*="SENSEURS COURTE DISTANCE" :RETU 

RN 

8796 G2«=' SENSEURE GRANDE D!5TflNCE"!R£ru 

RN 

879B G2«="C0NTR0LE PHASERS" :RE TURN 

8800 G2*=' TUBES PH0T0N1QUES" :REIURN 

8802 G2*="CONTR0LE D' AUARIES" ^RETURN 

8804 GZ*= ,, C0NTR0LE D' ECRANS" ^RETURN 

8806 G2«="LIBRAIRIE-0RD!NA!EUR":RE!URN 

8830 21=INTCZX.5):Z2=INT(Z2'.5l:S8=C?2- 

1]*3»C21-11*24*1 =Z3=0 

8890 IFnlD*tO*,S8,31<>A*TMENRETURN 

8300 23=] :RETURN 

9030 I FZ5(=4TNENONZ4GOTO9040, 9050,9060, 9 

070,9088,9098,3100,9118 

9035 GOTO9120 

9040 G2« = "ANTARES" :GOTO3210 

9050 G2*="R]GEL" :GOTO92!0 

9060 G2*="PROCrON" :GOTO3210 

9070 G2*^ , UEGA":GOTO9210 

9080 G2*="CAN0PUS":G0T09218 

9890 G2*="ALTAIR":GOIO9210 

9108 G2*="SAGITTA1RE" :GOTO9210 
9110 G2f ^"POLLUX" :GOIO9210 
9120 ONZ4GOTO9130,9l40,9t50,9160,9l70,91 
80,9190,9208 

9130 G2*="SIR]US":&OTO92I0 
9140 G2*-"DENEB ,, ;GOTO9210 
9150 GZt-CAPELLA 1 :GOTO9210 
9160 G2*='BETELGEUSE■ , :GOTO92I0 
9170 G2<=' ALDEBARAN":GOTO9210 
9180 G2«-"REGULUS" :GDTO9210 
9190 G2• = "ARCTURUS , :G0T09218 
9200 G2*="L'EPI" 

9210 IFG5O1THENONZ5GOTO9230, 9240, 9250,9 
260,9230,9240,9250,9268 
9220 RETURN 

3230 G2*=G2»»" I' :RETURN 
9240 G2*=G2*<- IT :RETURN 
9250 G2*=G2«»" III":RETURN 
9260 G2*=G2*»" IU' :RETURN 
9339 END 
B200 INPUT "COORDONNEES FINALES X, T " ;UI , 

6220 X=X-A:A*C1-W1 : IFX<8IHENB350 

8250 1FA<0TNENB418 

6260 IFX>0THENB280 

B27B IFA=0THENC1=5:GOTOB230 

6288 Cl«l 

8290 IFABS(AX=BBSCXJTHEN8338 

8318 PRINT'DIRECTION ="CC«"E" IC It ( t CABS! 

A)-ABStX)XABStAll^ABSCA)X' 

GOTOB460 

8330 PRINT"OIRECTION =-"CC«"E" iCl t IABSCA) 

-ABStX)XG0T08468 

B350 !FA>0THENC1=3:GOTO8420 

6360 IFXO8THENCi=5:G0T08298 

B410 Cl=7 

8428 IFABS!A)>-ABS[X1THEN8450 

6438 PR I NT "DIRECT I ON ="CC«"E" iCl tt t ( ASSt 

X)-ABS(A)XABSCXlXABSCX]i: 

GDTOB460 

845B PR I NT "01 RECTI ON ="CC*"E" iC 1 . [ ABStXl 

-ABSCA11 

6460 PRINT-DISTANCE ="CC*"C" iSaRlX-2iA"2 

1 : 1 FM8= 1 THENGE T I 5* iGOTO 1 990 

846B NEXTI :&ET 15* :GDT01 990 

8500 I FB3O0THENPRJ NT TABt 201 "ENTERPRISE 

A STARBASE : :Wi =84 :X=B5=GOT 

OB 120 

9510 PRINT :PRINTCC«"H"CC«"E"i ■ 
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LE LOGICIEL DE LA SEMAINE 



LA TORTUE ET LA POMME sur APPLE 




Pour les amateurs de LOGO. EDI- 
CIEL a developpe une version 
Francaise du fameux langage 
creeau MIT EDI-LOGO. confor- 
me a la version originate du 
LOGO, tourne sur APPLE lie ou 
APPLE II muni dune carte d'ex- 
tension memoire (16 K) 

Comme dans (outes les versions 
de LOGO, on retrouve les points 
forts qui ont assure le succes de 
ce langage : 

- Simplicity et creativite avec la 
TORTUE qui permet une appro- 
che graphique de la logique infor- 
matique. 

- Interactivity lotale 

- Programmation procedural et 
recursive 

- Donnees structures (mots, lis- 
tes, phrases) 

Bret, de quoi contenter un large 
public 

EDI-LOGO possede pour sa part. 
de serieux atouts. qui transfor- 
ment votre ordinateur en un par- 
tenaire attentit et sympathique : 

- Messages derreurs courtois et 
explicites etablissant un veritable 
dialogue 



- Un manuel complet, particulie- 
rement simple et bien structure, 
ouC. BERDONNEAU.unespecia- 
liste de LOGO, vous prend par la 
main pour vous conduire. en dou- 
ceur jusqu'au NEC PLUS ULTRA 
de la programmation avec LOGO 

- LOGO est deja un langage 
adapte aux petits. EDI-LOGO 
elargit I'eventail, grace a la carte 
de synthese de la parole (vendue 
separement) Les plus petits be- 
neficieront duplications don- 
nees de vive-voix (voix d'ailleurs 
ires claire) par la machine 

- La musique nest pas oubliee, 
grace aux procedures et aux 
sous-programmes en langage 
machine stockes sur une disquet- 
te utilitaire fournie avec le langa- 
ge Cette disquette est un recueil 
de procedures de demonstra- 
tions ou de procedures utilitaires. 

Voila pour les petits Pour les 
grands et les mordus de langage 
machine, outre les astuces de la 
recursivite et la programmation 
stnjcturee, EDI-LOGO propose 
un Assembleur et des primitifs as- 
surant Interface entre EDI-LO- 
GO et le langage machine. 



Puissant, simple, agreable. EDI- 
LOGO est un bon outil pour ap- 
prendre. ou se perfectionner en 
programmation, pour tout public 
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Banc d'essai Duriez 
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, PmTTC jusqu'au 


31 


i-Bd ; 


! Si ui mi 


r DU It 


orti' 


C11IW1I ', 


; HHtvet a 


IpriHwM 


Hdi 


! CHEZ DURIEZ 




: 


J 'Aprc. .r 


nli. t 


i.,n 


t m > 


















. ■ Ouie* c 


1 ™r 


it 


Vh JO i 




IU, 


W 


Sam < 




•». M 


(Mcon 


I . 






! 



2A pages Envoi conne 3 I 
bres Ulihsez le Bon 
dessous (gratuil au magasin 




Quand 
Duriez 
critique 
Sharp... 

(etc.) 

. EST SORT! 

ii ii in fin i catalogue 
Durie/ "raicro- 

irrJinaleurs" cunside- 
ahi< nirni Rogmeali, 
■nnlicnl pliisii-urs pages 
iur Sharp, Commodore, 
'■..; in. Sinclair, Oric. 
[ usio, Kpson, Thomson. 
Sanyo,... 

I esl bourrc d'appre- 
.iations critiques, tests, 
opinions d'utilisateurv 

Plus le Lexic-Basic 

Duriez. Envoi eonlrc 
1 timbres a 2 Fr. (Gra- 
uit au magasin). 
Et les prix charter 
Duriez sont bien ime- 
ressants aussi ! 

Chez Durie/, 132. Bd 
51 Germain, 6*. , 
VT Odeon. 9 h 35 a** 1 
19 h., sf. dim., tundis. I* 



Je commande a Duriez : S!:""" 

if.ri""ifi Mo Norn, PrtMMM, Admx I 

IN*. Rue. Code. ViOc) : 
un lupplemenr 
40 F Pod rl 

| 




VENDS TRS 80 Mod 1 16 K niveau II 
Unite centrale + Moniteur + Ma- 
gneto + 200 programmes (150 
jeux + 50 utilitaires + PASCAL + 
FORTRAN) Valeur totale 10.000 F 
PrixsacritieS 500F Sadresserau 
(27) 33 45.90 ouau (27) 47 61 50 

ACHETE pour Tl 99/4A. mini me- 
moire et Basic elendu M HAL- 
LUIN J. -Pierre. 7 rue des Bleuets 
21260 SELONGEV 

VENDS Moniteur PHILIPS 12 pou 
ces Orange MAI 83 1000 F peu 
servi LEBOULER Joelle, 12 rue 
Louis Marteur 95140 GARGES- 
LES-GONESSES Tel 9862247 

VENDS SHARP PC 1500 avec 
CE 150 (interface JMP/K7) + 
CE 154 (4 Ko RAM) + Doc + ma- 
lette 2400 F le tout M LAN- 
GLOIS. 15 bd Lenme 93290 
TREMBLAY Tel bureau entre 11 h/ 
12h 203 41 28 Poste 322/323 

VENDS ZX 81 (novembre 1982) + 
Clavier ABS (juin 83 sous garan- 
tie) + Memoire 16 K (juin 83 sous 
garantie) + carte sonore QS 
sound (sous garantie septembre) 
+ nombreux programmes com- 
mercialises + 3 livres (la conduite 
du ZX81) valeur 2300 F. cede 
pour 960 F Etat neut JACQUET 
J.-C. 19. rue Gambetta 77400 
THORIGNY Tel (6)430 62.78 

VENDS HP 41 CV et divers acces- 
soires. Excellent etat Joseph 
HECTUS 78. avenue d'Alfortville 
94600 CHOISY-LE-ROI. 

VENDS SHARP PC 1500 1.500 F, 
avec CE 150 (imprimante) ■ 1.400F 
+ CE 155 (8 Ko RAM) 500 F + 
CE 159 (8 Ko RAM PROTEGEE) 
900 F, + CE 153 (Tablette graphi- 
que) 950 F + CE 152 (magneto) 
400 F + papiers + stylos + livres + 
programmes + Malette le tout 
6.300 F M LEMOINE Joel. 2. rue 
A -Leyge. Bat. 28. esc 2. 95340 
PERSAN Cherche ut.hsateur AP- 
PLE II ou II E dans le Val-d"Oise 
pour echange d'idees ou de pro- 
grammes 

VENDS Console TI-99/4A + MO 
DULE BASIC ETENDU manuel 
francais) + Gestion de tichier + 
YAHTSEE + K7 "Le Basic Etendu 
par soi-meme" + Cordon K7 C St 
+ Joystick + programmes sur K7 
(40) dont 5 proteges (provenance 
USA) + nombreux manuels sur Tl 
+ Tele couleur portable marque 
ORION 14 cm valeur venteactuel- 
le Tl 3 200 F Tele 2 500 F. cedes 
respectivement a Tl : 2 500. Tele 

2 500 F JACOB Patrick. 4. place 
du Front-Populaire. 77420 NOI- 
SIEL Tel 006 1580 

VENDS Tl 99-/4A 16 Ko, PERITEL 
Cordon K7 + Manettes de jeux + 
Modules jeux Tl INVENDERS + 
PARSEC + 2 numeros 99 magazi- 
ne + 4 livres programmes + docu- 
mentation parfait etat. emballage 
d'ongine Le tout 1 700 F M LERi- 
CHE Benoit, VERSAILLES Tel 
95115 58 

Pour 1 1-99/4A. VENDS. ECHANGE 
tous programmes sur K7 (BASIC 

SIMPLE ou ETENDU) Achete mo- 
dules de jeux Sacrifie n c 1 et n u 2 
de 99 Magazine 50 F (valeur 
achat 80 F) M MIKE LAHMI, 14, 
av Courtelme. 92700 COLOM- 
BES 

VENDS PC 1211 et son imprimante 
CE 122 + papiers + documents, 
annee 82 pour 900 F Collection 
complete de la revue Tordinateur 
de poche" 200 F LAMOTTE Joel, 

3 ter, rue de Cambrai. tour J. 75019 
PARIS Tel 240 64 26 

H BOUDIER (54012 12) et J -L 
RICHETIN (53922.77) recher- 
chent les deux tomes du livre de 
LOGAN ZX 81 ROM DESAS- 
SEMBLY 



CHERCHE programmeur en LM 
sur ZX 81 ou SPECTRUM. VENDS 
ou ECHANGE nombreux pro 
grammes. Nicolas BAUDIMENT. 
Foyer BEAULIEU. Ch 613. 9 bd 
Vincent Gache 44200 NANTES 

HE8DOGICIEL recherche utihsa- 
teur FX-702P en vue collabora- 
tion Ecrire au journal Reference 
FX83. 

Recherche Programmes assem- 
bleur TI-99/4A pour minimem Pl- 
GUET Serge, 82. rue du Bois 
Hardy, 44100 NANTES. 

Vends TI-99/4A + MODULE BA- 
SIC ETENDU + MODULE GES- 
TION DE FICHIER + MODULE 
BUDGET FAMILIAL + MODULE 
D'ECHEC + cordon pour 2 ma- 
gnetophones + Synthetiseur de 
parole + Livres BASIC ETENDU 
en Francais. la decouverte du 
TI-99, Exercices pour Tl 99, le 
TI-99 a larfiche, Pratique de I'Or- 
dinateur Familial TI-99, 50 pro- 
grammes TI-99/4A 2 800 F I'en- 
semble. DREUX, BIZY41240OU- 
ZOUCS/MARCHE TEL. (54) 
82 40 48 

VENDS FX 702 P (11/82) INTERF 
FA 2 (5/83) + Imprimante FP 10 
(10/83) + Programmes + 2 livres 
PS I. valeur 2.200 F Vendu 1.900 
(adebattre). M viVAUDOU A , 10, 
rue Deparcieux. 30100 ALES 

VENDS TRS 80 - 16 K Niveau |i 
Prix 3300 F A debattre, vends 
EPROMS pour SYNTHE Tel 
806.31 10 (heure des repas) 

Enseignant, utihsateur T07. cher- 
che contacts pour echanges par 
correspondence de programmes 
d'enseignement (toutes matie- 
res)et de jeux enregistres sur cas- 
settes et de peliles astuces de 
programmation Alfred DUMEN. 
B P 88. 10. rue du 13 Juin. 40800 
AIRE-SURL'ADOUR 

Echange nombreux programmes 
pour APPLE II Contacter 
M BAYLLE Marc, 15, rue Daniel- 
Casanova, 95210 SAINT-GRA- 
TIEN (reponseassuree). 

VENDS, cause double emploi 
COMMODORE 64 PAL + prise Pe- 
ntel + Magneto (interface inte- 
gree) + livre en Francais (edit 
PS I ) SOUS GARANTIE jusqu'au 
10/1984. L'ensemble 3 200 F (dis- 
enable) M LECOMTE Luc. 31. 
rue du Dr-Brmg. 94350 VILLIERS- 
SUR-MARNE Tel 303.5441 

Possesseur ORIC 1 48 K, cherche 
le listing complet de la ROM en 
assembleur fiC 000 - " FFFE) et 
echange egalement programmes 
et trues Contacter HENG-BOU. 
19. avenue de Choisy. Appt 4008, 
75013 PARIS Tel 583 18.82 (a par 
tirdelBh). 
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